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APPLICATIONS POUR TABLEURS 
ET BASES DE DONNEES 

^- _, ASSISTANCE TELEPHONIQUE 
K7\ GRATUiTE(16)35 8817 00 

\ ''^ Jt Vous eles presse, udus n'avez pas 
le temps de chercher Appelez-nous ! 



Entrez les chiffres et tout est 
calculi). 

Nos applications sont directement 
utilisables pour la gestion : paye, 
amortissements, comptabilite... 
Elles fonctionnent a partir 
des principaux tableurs du 
marche (Excel*, Multiplan*. Lotus', 
Symphony*...) et s'articulent 
autour des comptabilites standard. 
Developpements specifiques 
sur Excel*, 4D* el HyperCard*. 

II ewoyez-nioi line documentation GRATUITE sur les applications 
^rfr^Jl preles a I'emploi ou sur mesure proposees par La Solulion Douce. 
La Solution Douce - 78, rue du Gros Horloge - 76000 Rouen 

Norn Prenom 

Societe Adresse 



Cade p 



Ville 

Lihleiu 



Pour recevoir celte documenlalion encore plus rapidemenl, appelez le (16) 35 8817 00 
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Editorial 



20 000 Km tous les deux mois pour ramener 
une poignee d'articles sur Mac...? 
a Dieu ne plaise ! 

En France, il paraltrait que, dans le domaine du Macintosh 
les journahstes n'existent pas, et que nous manquons de 
personnes qualifies pour rediger des articles sur des 
logiciels Mac. 

On pretend meme que certains iront jusqu'a parcourir 20 000 
Km tous les deux mois (333 Km par jour) pour ramener la 
anquantame de pages d'articles et de bancs d'essai ecrits par 
les amencams d'un certain MacUtilisateur, et composer un 
magazine qui n'en sera finalement qu'une bien pale copie 
Certes, il s'agit la d'un choix, d'une strategie commerciale, a 
laquelle nous souhaitons bonne chance. 

Nous pensons vous montrer, avec ce numero de MakFan et 
bien entendu les suivants, qu'on pent, sans quitter 
I hexagone, trouver des auteurs de qualite, capables d'eerire 
des articles serieux sur les domaines les plus brulants de 
l'univers Macintosh. 

Et si cette qualite et ce serieux vous semblent reels, pensez 
qu'ils viennent de personnes comme vous, et n'hesittv pas a 
nous proposer votre collaboration. 

Redouane Alain i 
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Les distributeurs nous informent 



tcheks FRANCE annonce La 

commercialisation de NUVISTA, hi 
carte 32 bits , ceUe ei permet un affl- 
chage de 16 millions de couleurs si- 
multane'es avec une resolution de 

I 1024x1024 en 32 bits ou 256 couleurs 
avec une resolution de 2048x2048. 

I Avec ses quatre nuSgaoetets de me> 
moire , LA NUVISTA aceeplc aussi 
bien le RVB analogique que le NTSC 

et SUTtOUt la nonne Huropeenne en 
video, le PAL. EUe digitnli.se en eou- 

leur par camera en temps reel et 
n 1 utilise qu'un seul slot NUBUS. 

( ette carte <i ele presentee a MAC' 
WORLD Expo a Boston ei sera pre- 
sentee olficiellement pour In pre- 
miere fois a Apple Expo. Pour tous 

rertseignements contacter: 

Beatrice DE LA FERTE : 

Tel : ( I ) 39. 52. 62. 53. 

MICROSOFT annonce la procaine 
version de POWER POINT 2.0. A 

noler que Povverpoint est un logideJ 

graphique de presentation assistee 

par ordinatcur, quJ vims permet de 
preparer a 1'avance, de creer et de 
geter des presentations completes, 
COKiprenant des transparent, des 
diapositives 35 mm, des livrets de 
presentation, des notes pour le eon- 
terencier et de la documentation a 
remettre en public. La version ac- 
luelle de PowerPoint (1.01) lone- 
tionne pafaitement sur MAC II mais 
ne supporte sur 1'eeran que des 

images noir et blanc. Des diaposi- 
tives en couleur peuvenl 6tre reali- 

sees en utilisant un appareil enruejs- 
treur de films ionctionnant sur le 
Macintosh. Cetle nouvelle version 

supporters toute la panoplie de cou- 



MAK FAN 
a selectionne pour vous 



FREE 

FREE 36, rue Bcrzelius 75017 Paris. Tel : (1) 46 27 45 49 
Disquc Dur 20 Mo externe : 3373 FF HT 

Garantie 1 an, avec la qualite du service que nous 
connaissons a la societe FREE. 

MacBrain Developpement 

91, rue P. V. Couturier 92240 Malakof. Tel : (II 47 35 21 32 

Programmer's OnLine Companion 
version (1.0) 268 FF HT 

(version 2.0) 384 FF HT 

BR Publishing 

16, rue Gustave Courbel 75016 Paris. Tel : (1) 47 04 46 46 

Prix Education INCROYABLES : 



LightSpeed Pascal 2.0) 
LightSpeed C (3.0) 
Just Enough Pascal 



450 FF HT 
490 FF HT 
190 FF HT 
Capps un editeur de texte complet 190 FF HT 

Pour beneficier des prix education il suffit d'etre : 
Eleve, etudiant, enseignant ou elablissement d'enseignement. 
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leurs do Mac II. PowerPoint fonc- 

Honne sur : Mac 512K version Sen- 
due, Mac Plus, Mae si; et Mac N. II 
est concti pour tonctionner avec lc 
MuitifindiT. ii accepte line multi- 
utilisation (Appleshare) , plusleurs 
persorm.es peuvent y avoir acces aux 
lichii'rs de donnees en lecture seule- 
ment. II foncHonne avec un lecleur 
de disquette BOOK. Lea fielders Po- 
werPoint soni residents en metnoire. 
Ce qui signifie que la taille maxi- 
mum du Hchier depend de la taille 
de la memoire ctisponible dans 
I'ordinateur. Dans un Macintosh 
contenant un Megaoctet de mi- 
moire, une seule presentation peut 
representer de 2 a 301 diapositives. 
PowerPoint a en! concu pour travail- 
ler avec d'autres logiclels de produs- 
tivite, ce qui permet a I'utilisateur 
d'inscrcr des informations (plans 
d'idi'rs, dessins, graphiques) prove- 
nam d'une autre application, qui onl 
(te placees dans le Presse Papier ou 
enregistreea dans ['album. II est 
aussi capable de recuperer dircctc- 
meni des images PICT ou MacPaint 
provenant d'une autre application 
pour les inserer sur vos diapositives. 
PowerPoint est protege. Son prix pu- 
blic est de 3440 F 1 1 r. 

Les nouveautes 

de l<i version 1.5 d'Excel. 

I. a nouvelle vertsion d'Excel s'adaple 
parlaitement aux nouvelles ma- 
chines de la gamme Macintosh : elle 
gere le coprocesseur oKKXi du Mac II 
qui accelere considcrablcmcnt la Vi- 
tesse de recalcul. Excel 1.5 gere ega- 
lement les ecrans el les imprimantes 
couleurs d'Apple, elle a un plus 
grand nombre de functions de calcul 
el (('instructions macros el elle per- 
mel de creer des menus, des com- 
mandes et des zones de dialogue 
personnalisees, I a presentation 'des 
tableaux a ete amelioree, les formats 
out etc onricliis par la gcslion de la 
roulcur. Avec un memo format, 

I'utilisateur pent afficher les chiffres 

posilils en bleu, les negalils en 
rouge, les mils en mauve el le texte 
en vert. Pes formats KF, MF onl ega- 
lemenl ete a|oulcs pour les docu- 
ments financiers. 

Les representations graphiques ont 
i'te enrichies notamment par le sup- 
port de la couieur. Un simple double 
clic sur un element du graphique el 
line zone de dialogue apparail avec 
de multiples options de formats et 
de motifs en couieur. I.'ulilisaleur 
peut faire deliler les 42 representa- 
tions graphiques proposees dans le 

menu Presentation grace a i.i^u\ 

nouveaux boutons : Precedent et Sui- 

vanl. Cette nouvelle version d'Excel 
permet egalement de tracer des gra- 



phiques a partir d'une selection dis- 
continue de cellules. Pnlin le 
nombre de points par serie a ete lar- 
gement augmente : de Mil points 
pour la version procedontc a 2(148 
points pour cette version. Excel IJ5 
vous permet d'cxcculcr automati- 
quement des macros a I'ouverture ou 
la fermeture de lichiers. Ccs macros 
s'appellenl des macros autoexec. 
Idles prennenl le conrtole de 
['application des louver-lure ou la 
fermeture de fichiers. Les macros- 
instructions dKxcel permettent 
d'ajouter des menus, des com- 
mandes, des zones de dialogue qui 
Utilisent la menu' interlace que le 
programme Excel lui-meme. 
I.'utilisa-lcur pourra done adapter 
Excel pour une application particu- 
Iiere faite sur mesure ( la paie de sa 
societe ou la faeluration de ses 
clients). Cette nouvelle version fonc- 
tionne a partir du Macintosh 512 dis- 
pos.mt dun lectern- tie disquettes 800 
Ko. II esl recommande de disposer 
d'un disuuc dllr ou d'un lecleur ex- 
terne Kilt) Ko. Les machines no sup- 
porlant pas 512 Ko tie RAM el ne 
disposant pas de I2K Ko de ROM ne 
peuvent uliliser Excel 1.5. En re- 
vanche celle-ci gere le coprocesseur 

cSSKI du Mac II. Excel 15 coute 3990 
F I IT' prix public. II est protege. Pour 
tous renseignements, contnclcr 
Mme KECHICHIAN: Microsoft 
France 

12, avenue du Quebec , /.A. de 
Courtabtcuf, 91957 Les Ulis Cedex 
Tel: 64. 46. 61. 36. 



nouvelle version , donl la commer- 
cialisation est prevue pour la fin de 
lannec 1988. I'armi les nouvelles ea- 
racteristiques de la version 4.5 de 
RSG: l.e corps ties caracteres, 
linterligne et le decalage des lignes 
d'impression soul specifies an 1/ 
lOOeme pies, p., variation 
dapproche el I'interlettrage sunt re- 
gies ,,u l/HHIIleme de uuadralin 
pros. 

I.'allichage en reduction tie ['en- 
semble des pages tin document per- 
met un tumble visuel instantane et 
procure un moven rapide d'acccs, 
dodilion et d'impression ties pages. 
Une commandc de dcplaccmcnt 
permet de rcpositiomicr un en- 
semble d'objet en un endroit precis. 

De nouvelles commandea gerent la 
mise en couieur et assure la separa 
lion des couleurs du document. Un 
editeur d'image dispose de com- 
mandos de : conlrasle el luminosity, 
turret lion globale par courbe de 
transfer! ties gris, creation tie nega- 
lils, une rotation horisontale et verti 
cale, la poslcrisalinn par limitation 
du nombre de gris de representa- 
tion, le parametrage tie frame d'im- 
pression en demi-tons. 
Sur des selections de texte s'ap- 
plitpienl des conversions majus- 
cules/minuscules: tout en lellres 
majuscules ou minuscules, premiere 
lettre ties mots ou des phrases en 

majuscule. 



SYMBIOTIC annonce Honeywell 
SlideWriter. II realise ties di.'iposi- 
tives numerii|ues d'images couieur 
creees sur Mac II; les images sunt 

d'une resolution effective de 4096 pi- 
xels par ligne, soil 5 lois superieure a 

celle tie I'd ran standard Macintosh; 

il exploile lollies les possihilites ties 

logiciels graphiques PICT file du type 
MacDraw, MacPaint, et des liaisons 
directes du type Cricket, Dimension, 
etc. Un choix illimile de couleurs 
dans une palette de 16 millions de 
nuances; des possibilites de mise en 
couieur de graphiques noirs/blancs 
crees sur Mac SE et Mac Plus. II rea- 
lise (usqu'a 45 diapositives par heure; 
accepte les images saisics par scan- 
ner; un choix typographiuuc dans 
plus de Kill polices tie taracleres el 
corps, justpia 13 par image. Pour 
tous renseignements complemen- 
taires, contacter : 
Lionnel Delattre : 
4, rue Robert-Schumann. 

U4221) Charcnton.Tcl: 43. 7K. 99. 99, 

I ETRASI I France annonce une 
nouvelle version de son logieiel tie 
mise en page Ready Set Col C elle 



Septembre 1988 



Standout, un nouveau logieiel de 
presentation qui vient s'ajoutei a sa 
gamme de logiciels graphiques. 

Standout a ete developpe par le ca- 
binet ameritain Manhattan Gra- 
phics en collaboration avec i'equipe 

de recherche de letrasel, sur ties 
specifications quelle a elablies. 
Standout reprend cerlaines ties ca- 
r.icleristitpies martpianles tie Ready 

Standout permet d'elaborer des do- 
cuments de presentation attractifs et 
persuasifs, sur papier, sur leuilles 
transparentes ou sur diapositives 35 
mm. II dispose pour cola d'outlls de 
Creation tie textes, de dessins e[ de 
graphes. 

les principales caracterislit|uenl de 
Standout soul les suivantes : 
- Le Systeme .le Conception tie 
Diapositives permet a I'utilisateur de 

creer des modclcs reutilisahles dans 

lesquels les prindpaux elements au- 
ront etc mis en place, v compris les 
allnbulsde texte et de couieur, uinsi 
que les caracierislitjues ties obletS 

graphiques. 

Un editeur de lexle inlegre dispose 
d'un ensemble complet d'outils de 
manipulation de texte, avec notam- 
ment des leuilles de slvle, ties nlos- 
saires, des functions de recherche et 
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rem placement et un veriiieateur op- 
thographique assort! dun diction- 
naire francais. 

Des functions d'habiJlage aasurenl la 
repartition automatique des textes 
autour d'images on d'objets graphi- 
ques de forme reguliere ou irrfigu- 
lifere. 

Les functions de mise en graphs sent 
varices. Les donnees numeriques 
peuvent etre representees en differ 
rents types d histogrammed, de 
combes et de diagrammes sectorids, 
mi encore sous la forme de picto- 
grammes a partir d'images Impor- 
k'l's. La sortie dus documents 
s'effectue sur une variety de disposi- 

tits d'impression : imprimante laser 

couleur on monochrome, Impri- 
mante therxnique, photocompo* 

sense, table traeante ou encore, sur 
generateur de diapositives. Les g4- 
rterateurs de diapositives Montage et 
imageMaker de Presentation Tech- 
nologies, SlideWriter el ProC'olor de 
Matrix, filmPrinter de Mirus, sent 
compatibles avec Standout. D'une 
fatjon generate, tons les dispositifs au 
standard PostScript pourront Stre 
expLoites. 

Standout fonctionne sur rensemble 
de l«i gamme Macintosh d'Apple, La 
configuration minimum est consti- 
tute dim Macintosh Plus equipe 
dun lecteur de disquette externe. 
Standout sera dispordble en version 

Iraneaise a l.i lin de I'annee 1988. 

Pour tons renseignements contac- 
ter: 

Mr J. C. STERN Letraael Prance 
13, mo Marceau, 

93100 Montreuil. Tel: 48, 59. IS, 40, 

PRLC1LAB annonce 1'reciDoc. Le 

logieiel so presente sous l,i tonne 

d'une pile HyperCard qui permet a 

Id lois Le dassement et la recherche 
de documents, articles de (ournaux, 
cassettes, livres, etc... 
Quatre bases docu men ta ires peu- 
vent etre ereoes. Ces quatre bases 
sunt independantes 1'une de laulrc. 
GKaCUne des bases pent contenir un 
nombre de tidies limite seulemcnl 
par la capacity de la memo ire de 

masse utilisee. A tilre d'exemple, 
I'utilisateur s'esl cons ti tut 1 quatre 
bases documentnires en litterature, 
iniormatique, bande dessdnee et vi- 

deotheque. Darts la base "Litera- 
ture", cheque fiche comporte sept 
champs de texte pour archiver les 
donnees Importantes relatives a 

lieuvre. Par exemple : un champ de 
tilre, un champ pour le nnni de 
lautcur, un champ pour indiquer 
['emplacement dans le support phy- 
sique de I'eeuvre, un champ pour in- 
diquer I'emplace-ment dans le sup- 
port, UH champ date. I ,e litre de l es 
Champs esl paiametrable par 



I'utilisateur. On trouve par ailleurs, 

un champ de resume qui permet 
I'entree de texte jusqu'a 32767 earac- 
teres, compatible avec le "copier/ 
culler" et enfin, un champ specialise 

pour ['introduction de mots clefs 
choisis par I'utilisateur. I. a recherche 
pent etre laile sur chaeun des 
champs, sur les mots dels, sur le 
com men I, lire ou globalcnienl sur 

toute la fiche, La recherche par mots 

dels est bien entendu conseillee car 
plus rapide. On peul demander une 
recherche a partir de n'importe 
quelle fiche de base, cette recherche 
se faisant dans 1'ordre croissanl des 
numeros de fiches, 
I'RI CM AB. Mh, rue Stanislas, 5401)0 

Nancy. "I'd: 83. 37. 06. 78. 

1ST UCOS annonce la disponibilite 
de PageMaker 3.0 en version 

fr.mcaise. PageMaker pour Macin- 
tosh est livre depuis debut aoul c\u 
pri\ de MOO F I IT. La mise a jour est 
effeduee par ESE Cegos aux condi- 
tions suivantes : de la version 2.0 
(francais) a 3.0 : 500 F HT. Les utili- 
sateurs possedant des versions anle- 
rieures devront s'.idresser dirccte- 
ment a ISE Cegos qui leur 
communiquera les conditions de 
mise a jour. 

SCANNERS DISI 1000 liT 2000. 
Des scanners intelligent^ pour Ma- 
cintosh, PC, PS, et compatibles. Les 
scanners developpes par Dest Cor- 
poration ( 16 annees d 'experience 
dans le domaine de la numerisalion 
de t'image) permottent de numeriser 

textes ou graphiques. Concus pour 

les deux univers, Macintosh et PC/ 
PS ft compatibles, ils oltrent de 
liaules performances sur le plan de 
la rapidite, la simplicite de mist' en 
ceuvre, la richesse des lonctionnali- 
tes. 

Deux versions de ces scanners, les 
"311", sont equipes d'un logieiel OCR 
(Optical Character Recognition) qui 
leur permet de trailer le texte ausst 
bien que I'image. Interfaces au logi- 
cids TextPac (pour PC, PS/2 ei com- 
patibles), ou simplement PublishPac 
(pour Macintosh), Ms peuvent trans- 
ferer diredement les textes dans iw\ 
logicie] de traitement de texte 
(Word, Wordstar, Wordstar 2000, 
WordPerfect, Multimate, Display - 
Write 3 et 4 pour l'environnement 
DOS ainsi que MacWrite et Word 
pour L'environnement Macintosh). 

Contactez : Marline CASTRO 

ISB CI'C;OS: Tour Ambroise, 204, 

Kond Point de Sevres, 

9251b Boulogne Tel: (I) 46. 04. 28. 

28. 

LAUORATOIKi: M II I I I annonce 
liMPRLINTE: un logidel de gestion 



de laboratoire de prothese dentnire. 
II s'articule autour ile quatre princi- 
paux axes: la gestion commerciale, 
la comptabilite, la gestion technique 
et la publication. II fonclionne sur 
tOUS les types de Macintosh, il re- 
quiere un minimum de 2 megas de 
niemoire, permet la couleur sur le 
Mac II, il importe des donnees et ex- 

porte ses donnees en provenance ou 

vers d'autre logieiel, il est entitle- 
ment pilote par menus deroulants et 
lenetres de dialogues. Pour tous ren- 
seignements contacter : Patrick 

MITTPL 

\9, nie l.eduse, 75017 Paris. 

lei: (1)42.93.40.06. 

GRAFT1 K annonce "OPTIMAGE" 

un nouveau logiciel d'analyse et de 

traitement d'image pour Macintosh 

II. C'esl une "hoite a outil modu- 
laire" qui convient a de nomhrenx 
domaines d'application : Microsco- 
pic optique, microscopie a balayage, 
echographe, endoscope, scanners, 
telescopes, cameras CCD. II tourne 
slu" unMae II equipe d'un ecran 256 
couleurs. II propose au prix public 
de l9.900Fet sera livre a partir de 
septemhre 1MHS. pour lous rensei- 
gnement contacter : Mr GONZA- 
LEZ 
'I'd: (■><-). 07. 54. 40. 



McB'ra in D6veloppement an- 
nonce quarante-deux produits Ma- 
cintosh pour developpeurs 

McBrain Dfiveloppemertt met en 

venle directe 42 outils de program- 
mation et applications destines aux 
developpeurs Apple. Cette nouvelle 
formule, appliquee uniquement a un 
domaine lies sp^Cifique, permet de 
maintenir les prix de ces produits a 
un niveau interessant tout en simpli- 
fiant leur suivi apres-vente. Les de- 
veloppeurs sont diredement infor- 
mes par McBrain DeVeloppement 
des mises a jour prevues pour leurs 
produits. Toute commande, obliga 

toirement ecrite, doit etre accompa- 

gnee de son reglenient mais aucun 
cheque n'est encaisse avant la livrai- 
son des produits par envoi recom- 
mande. Les delais sont normale- 
ment de X a 15 jours sauf en cas 
d'atlente de mise a jour et les prix 

TO. 

Addison-Weslev Publishing, Co. 
Programmer's (inline Compa- 
nion 
3 I S L 

Borland International 
Numerical Methods Toolbox <1S7I ; 
Turbo Pascal M87 F 

Turbo Pascal Database Toolbox987F 
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Turbo Pascal Tutor 

icom Simulations inc 
TMON 

Jasik Designs 

Mac Nosy & Debugger 

Mac- Master Systems 
Fedil Plus 
Mainstay 

Mac Intro Programming (Mil') 
' Mac Visual Programming 
(MVI't 

Vir : Database Manager 
VIP : Grid Manager 
VII' : ISAM Manager 
VII' : Matrix Manager 
VIP : Speech Manager 
VIP : Translator vers l.s/c 
vir . Translator vers LS/Pascal 
VII' : Translator vers MPVV C 
VIP : Translator vers MI'W 
Pascal 

VIP : Translator vers Turin 
Paseal 

VIP : Visual interactive 
Program-ming j | 



690F 



I 21)1 F 



1 .54') F 



4551' 

364F 
I.366F 
546F 
546F 
866F 
455P 
820F 
,5201' 
820F 

521) F 



Micro-Analyst, Inc. 
Mac Zap 

Paragon Concepts, Inc. 

Q.U.E.D. 

Q.U.E.D./M 



,5211 F 
39 F 

642F 



Macintosh el le software SANP 
(IEEE) numerics de Chez Apple, II rc- 
presenle un cnvironnemcnl inlcgrc 
avec tons les elements propres a un 
systeme de developpement complet, 
unique el facile a utiliser : cditour de 
texte, compilaleur. linker, auto-make 
el profiler, assembleur in-line, cdi- 

teur de fichicrs de tonics tallies el 

louies quantity ; fonction de re 
clierche el de substitution de fichiers 
multiples ; fonction undo el gencrn- 
leur de code. I.ighlspeed C permel 
d edilier un programme section par 
section. Chaque section peu( ctre 
compdee independammen! puis re- 
liee ,iuv autres pour produire une 

application "double-clickable", Sa 
technologie de gestion de projets 
garde en memoire Ionics les compo- 
SanteS d'un programme en develop- 
pement, y compris fichiers sources 
modules d'objets el librairies. II re- 
compile automatiquemenl el relic 
uniquemenl les parties du pro- 
gramme qui oni change. 



h42 F 
I 174 F 



Semantics Microsystems, inc. 

Mac Scheme, I 139 p 

Mac Scheme avec Tool Smith 5 598F 

j Symantec Corporation 
l app's I.ighlspeed C Kit 683F 

Capp's I.ighlspeed Pascal Kit 683 I 
l.ighlSpeed C I SC14 |: 

I ighlSpeed Pascal I [39 p 

TMI. Systems, Inc. 

TMI. Series : Database Toolkit ,557 F 

IMP Series : Pascal ci| | L 

TMI, Series : Source Code 1 ,1b 7,5» I 

True Basic, Inc. 

line Basic : 3-D Graphics 401 F 

True Basic : Algebra I 401 P 

True Basic : Calculus 4(1] p 

'I rue Basic : Language System 802 F 

True Basic : Probability Thery 4nih 
Trui' Basic : Trigonometry 40IP 

Zedcor, Inc. 

/Basic avec conversion kil 5:15 p 

/Basic Conversion kit 401 p 

/Basic sans conversion kil 721 p 

I ighlspoed C 

Outil inleractif de compilation 

Pour Mac5l2Kou Plus. 

I.ighlspeed C est un compilaleur 

inleractif qui prend totelemeni en 

COmpte la Boile a Outils, PCS du 



Capps' Pditor Construction Kit 
Envfronnemenl add-on pour langage 
de programmalion 
Mac 5I2K, Plus, SP 011 II 
\cccssilc I.ighlspeed C oil Pascal 
Co produit esl un outil supplemen- 
tal™ pour Pightspccd C ou Light- 
Speed Pascal. II offre aux program- 

meurs line serie d'ouiils ' pour 
I'cdilion du codc-textc de leurs pro- 
grammes. Capps est riiomonvmc du 
eclobre Sieve Capps, associe au de- 
veloppemeni du Macintosh. 

qui: i) 

Quality Editor : Mac 5I2K et Plus 

Kdileur de texte pour le program- 

menr 

QUED Quality Editor Inclui des tone- 

(ions macros, rechercher el rompla 
cer (niveau complk|ue), expressions 
standard, recherche dans fichiers 
non-nuvcrls, fonction undo preSque 
illimitcc, changemenl des tabula- 
tions en espaccs el nombreuses 
autre functions. 

QUED/M 

Editeur puissanl .wlv fonctions 
macro. Pour Mac 5I2K et Plus 
QUED/M esl un programme oombi 
nant macro-edition, gestion de base 
de iloiinees texluelles, calendrier de 
rendez-voua el outil de productivity 
en general, II inclui 70 Hems de 
menus el plus de 50 lonctions ma- 
cros inicgivos 11 permel d'ouvrir si- 
mullanement de multiples fichiers 
de copier des lisles de dossiers el fi- 
chiers pour creer un catalogue. II 
peul ogalcincnl accomplir des re- 
cherches complicjuees et des sub.sli- 
tutions ainsi que des recherches 
dans des fichiers non-ouverls. 



MacNosy 

Desassembleur, decompilateur 

Pour Mac 512, Plus el SP 
MacNosy est un decompilateur 

inleractif global qui permel a 
I'utllisateur de recuperer le code 

source de n'importe quelle applica 

lion Macintosh. II offre les possibili- 
les suivanles : subdivision glohale du 
programme en groupe de proce- 
dures el blocs de donnees ; informa- 
tion de reference "hypertext" pour 
les procedures, svmbolcs de systeme 
el Macintosh T : Acces on-line aux 

structures de systeme du Macintosh 

et/ou leurs vaieurs actuelles. Acces 
on-line aux system calls du Macin- 
tosh el leurs lisles de parametres. 

MacNosy "I he Debugger" 
Debugger symbolique de haul ni- 
veau 
Pour Mac Plus ,\nd SP 



Ce produit inclui a la fois MacNosy 
el "The Debugger". II esl conc.u 
pour supervisor le demulemenl des 
autres programmes. II permel 
d'arreler un programme a des points 
arbitrairement choisis (breakpoints), 

de suivre I'cxoiiilion, de visualiser 
les vaieurs des variables el struc- 
lures, de reperer dans la memoire 
les lieux fixes par inadverlance etc... 
Les points caraclerisliipies de ce 
programme sonl : suivi de 
rexeculion sur un mode unime ; pre- 
sentation automatique des para 
mitres des traps Macintosh dans 
leur formal d'edgine ; un "crawl" In- 
telligcnl dans la pile el la capacity 
de sorlir de la ROM lout seul en al 
lanl jusqu'n Pendroit oil le pro- 
gramme de I'utllisateur est rentrf ; 
le Watchpoim rapide permettant de 
retrouver I'endroil 011 la memoire est 
alleinte. Pes breakpoints peuvent 
avoir des clauses d'aclion qui leur 
sont attachei's pour imprimer selec- 
livemenl les vaieurs des expressions 
ou cuntroler ['entree dans The De- 
bugger etc. 
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Welcome to 



Bosion, entre le 10 et Le 13 
Aniit midi, s'dtait miso a 
I'heure du Macintosh IM . 
C'etait memo !.i folie fu- 
rieuse, puisque le chiffre 
de 251). 000 personnes a 6te annon- 

[/exposition, stir deux sites, memo 
relies par rtavette (BaysMe Expo et 
World Trade Center prea du port) 
n'oiaii pas ires pratique. Pour Lea 
journalistes, c'6tai( rn&me pire, puis- 
que certalnes conferences se don- 
naient au Wang Center, en centre 
ville, El quand on connail la densite 
de la circulation a Boston.... 

On y trouvait plcthore de produits, 
de tons types. Laissona tes autoes re- 
vues vims donner La tiste des nou- 
veaux produits, et cantonnons-nous 
aux impressions: le Macintosh™ 
est entre par l.i grands pozte dans 
tes grosses societes americaines, el 
on y rencontre parfois au devour 
d'un couloir, des salles avec des 
centaines de Mac, en reseau ou in- 
divUlui'ls, connectes ou rton a des 
sites eentraux (s'en faire). Parmi 
celles-ci, Boeing, Martin Marietta, 
des organismea gouvernementaux,... 
Les Impressions onl afflu^ en masse 
lorsque les conferenoers (John Scul- 
ley, Jean-Louis Gassee - de plus on 
plus mediatique - Bill Atkinson, L't 
mi'iiu' Bill Gates, ont an nonce le 
futur du Macintosh™. 

Ce lutiir est indeniablomonl lie a 
HyperCard on i'o qui Concerns 

I'titilisatinn Ifi plus eouranlc: on oltet, 

il existe a presenl des logidels prati- 

quement pour tons les corps de me- 



tiors, m, us parfois, une petite appli- 
cation realise* sous HyperCard ne- 
cessity peu de temps do "program- 

malion", et est souvont plus adaptee 
BUX desirs do I'll tilis.iteur, en 
['occurence le "realisaleur". 

Et HyperCard a reussi OS prodige 
de coller la "stackmania" BUX pOS- 

sesseurs Lambda de Macintosh™. 

Grace a Bill Atkinson et son equipe. 
Bill Atkinson qui, lors de son speech, 
s'est "enlarge" dans son micro, le 
laissanl tomber a plusieurs reprises, 
soulevanl des vagues d'hilarite et 
de synipathie, parlant parfois maudi- 
blement, niais malgre tout, formi- 

dablezaent ap pi audi. 

(."est pouiquoi I I v pert 'aid passera 

I relalionnel". 

Nous n'avons pas vn la machine le- 
gerement plus petite que le Mac II, 
et contenanl un 68030. Ni le "Lap- 
top" computer. 

Par COntre, parmi les beaux chassis, 
nous avons constat^ avec plaisir que 
le moiute leminin est de plus en plus 
inloivsso par le Macintosh 1 " (atten- 
tion aux propos sexistelrjs). 

II y eut quelques produits excep- 
tionnels que nous nous devortS do 
menttonner en ces lignes: 

I'n lout premier lieu, cilons 

ORACLE. Vous ne connaissez peut- 

fttre pus ORACLH, mais c'esl LE 
gestionnaire de base de donnecs re- 
lationnelles (SGBDR) mondialemcnt 
conrtu (et qui tut Introduit en France 

par la soeielo [NFI). II comporte un 



langage standard d 'interrogation 

avec lequel on pent, en gros, monter 
des applications. Ce langage se 
nomine SQL (pour Structured Query 
Language). 

Oracle, e'est I'hyper consecration du 

Macintosh™, Vendu 995 dollars, 
avec interfaeage HyperCard garanti. 

Oracle laisse loin en a mere dBase, 
et Edward Esber, d'Ashton Tate, a 

du avoir quekjues poussees 

d'urticaire en apprenant la sortie 
d Oracle sur Macintosh™, alors que 
son propre produii venait a peine 
d'apparaltre sur les rayonnages des 

computer stores. 

Notons aussi Le reseau Token Ring 
de Novell: une autre consecration, 
celle du cable coaxial. 



Ensuite, des pro 
ordre, el une sock 
groupe: I'arallnn, avec son "Rccor 



d'un autre 

■merge du 



der": 199 dollars, micro iourni, et 
vous digitalise/ absolumi'iil tout type 
de son, y compris en stereo, que 
vous residue/, identique, on TI-M'.S 
pen s'en taut. 

Farailon encore, .i\>v<.: son Phone- 
Net: utilisation du reseau telephoni- 
quc pour connecter les Macintosh™ 

entre eux, economies, el perfor- 
mances poussees avec leur nouveau 
repetiteur. 

Quant aux autres logicicls el male- 
riels, cilons les produits de concep- 
tion assistee par ordinaleur, el les 
produits 2D/3D, pour architextes el 
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bureaux d'ttudes, qui out commen- 
ce .1 fleurir. De bonne quality. Men- 
tionnons les produits franeais, et en 
tout premier lieu, Architryon, de 
Gimeor. Sous la conduite du dyrta- 
mique Mr Gato, cette entreprise 
s'est Implantee dans le monde, et 
nun contente d'Stre presente, elle .1 
encore amcliore sun produit. 

1,11 catalogue de realisations bous 
Quatrieme Dimension est sorti. 
Des livres aussi, des senunaires de 
formation, tout le "kit", en sorte, du 
produit qui a reussi. 

Nous termirterons en mentionnant 
les realisations des developpeurs 



Canadiens: ce 



ne seront pas des 



produits "grand public", car le grand 
public, au Canada, mieux vaut at 
p. is compter dessus, sauf pour 1.1 
biere, petit-clre. 

Mais par contre, on y voit fleurir des 
applications d'un domaine resireini 
extremement HI-TECH, comme 
par example tin systeme expert 
(DelphiSofl, S.iinle-I'oy, Quebec) 
sur les trace's d'Slectro 
cardiogramme. Vendu cher, mais 
quelle belle realisation, el quel plai- 
sir do converser avec ses auteurs. 
L'un d'entre eux, Frank Schmitt, 
esl tin Met/.ois (esl-ee ainsi qu'on 
nomme les habitants de Mel/? 
Quant ,1 nous, hyper moteur 

d'inlerenees, le M.I. ULTIME. 

11 loujours 1.1 nolo gasrronomique: 
plus de homard, plus de brochettes, 
le depouillemenl sloiquc du Fish 
and Chips, croquant a souhait - el 
copieux une pause natation d'une 
demi-heure a Gloucester, el Capo 
Ann, 60 kilometres .111 nord de Bos- 
ton, puis relour J Montreal par 
Manchester, New-Hampshire. Le 
Vermont de rtuit, le plein (1/4 moins 
cher), avanf la Eronriere canadienne, 
le sommeil, el l.i journee de pro- 
grammation le lendemain. cdaii 

Boston. 

Ce sera LasVegas en Novcmbre, 
Sanl ranclsco en lanvier. 

Et ce sera Boston, et la stietir qui 
coule dans les yeux rant il y lail 
chaud, en Atit'it prochain... 

c lerard levy. 
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Film 
Maker 



FAITES VIVRE 
ET BOUGER 
VOS IDEES 



lean-Marc l.FRQY 
DominufueMARTlN LA GARDLTfE 



Concu pour vous par dcs 
professionnels, Film Ma- 
ker est le fruit d'unv 
collaboration passion- 
nee entre develop- peurs, gra- 
phistes et hommes dc communi- 
cation. 

L'animation d'objets, c'est FileMa- 
ker. Ou til de production d'ani- ma- 
tions a 25 Images /seconcte et en 
deux dimensions, ce puissant logl- 
ciel est constitue de cinq modules : 

Animer, Colorter, Presenter, 
Sonoriser, Regarder, 



wmtmi 
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Presentation de la chahie com- 
plete dc preparation et de la re- 
alisation dc Film Maker 
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Construis-moi 
une animation ! 

Realiser des sequences d'animation 
a partir d'images ou d'objets graphi- 
ques issus de I'environnement Ma- 
cintosh, rien de plus simple avec le 
module Animer. Vous savez que les 
images recuperees au format Pict 
utilisent par defaut la palette sys- 
teme, ici, le programme vous per- 
met, en plus, d'utiliser des images 
aux formats PixelPaint et Modern 
Artist et ce avec n'importe quelle pa- 
lette de 256 couleurs. 
Prenons maintenant la construction 
dune animation. Elle se fait, non pas 
a partir des dessins eux-memes, 
mais d'un schema constitu£ de re- 
peres pr£alablement traces - lignes 
de contours par exemple. 
Vous obtenez ainsi des images que 
vous activez grace a des fonctions de 
mouvement simples mais nean- 
moins puissantes. Par exemple faire 
apparaitre et grossir un avion, puis 
lui faire prendre un virago et le faire 
sortir de l'ecran ne necessite qu'un 
seul dessin et s'obtient en quelques 
mouvements de souris i il suffit de 
faire intervenir simultanement les 
fonctions de zoom, de rotation et de 
translation, choisies parmi les autres 
compo- santes de mouvements : ho- 
mothetie et plusieurs types de defor- 
mations. 

Inutile done de sortir votre calcula- 
trice : une fenetre d'informa- lion 
permet de definir a l'avance la duree 
de la sequence. Le programme se 
charge de generer les images inter- 
mediaires entre celle de depart et 
celle d'arrivee qui constituent les 
deux positions-cle d'un mouvement. 
Le miracle ne s'arretant pas la, il 
vous est aussi possible d'inclurc des 
sequences animees qui pourront 
etre traitees comme des objets. 
Nous en arrivons maintenant au 
stade final du module Animer : la 
compilation qui est necessaire pour 
visualiser votre animation en temps 
reel. 

Le compactage Stant fonction du 
nombre d'objets amines presents si- 
multanement a l'ecran, une se- 
quence de quatre secondes peut 
prendre plusieurs heures et generer 
un fichier de tres grosse taille. Pa- 
tience, le resultat en vaut la peine ! 



Arc-en-ciel el RVB 

Plutot que de sortir vos crayons de 
couleurs, utilisez maintenant le mo- 
dule Colorier. II vous permet de 
modifier une ou plusieurs couleurs 
des objets animes par 
lintermediaire de leurs eompo- 
santes RVB ainsi que leurs taux de 




lllustrationdu tracage des lignes du contour de fobjet 

Module Animer, fenetre de representation schematique des objets 
Arborescence des objets 



f'lltlei EdMion Be[li!rctie renptre liue Page 
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Module Colorier 
retravaille des couleurs de Vintage, pur le taux de satumtio 
- : "" Edition s.Mt „ ,..,,.,, , . „,..,., 
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Chaque Image de votre animation 
utilisanl 25(i couleuTS choisies parmi 
une palette de 16,8 millions, la fonc- 
tion d'inter- polation bitervient alors 
pour assurer le passage graduel 
d'une couleur a une autre. Si vims 
rSviez d'effets speciaux tels que fon- 
dus-enchalnes ou cyclages de cou- 
leurs, ce module comble vos demurs ! 

Profession : monteur 

Aux oubliettes la paire de ciseaux I 
GrSce au module Presenter, vous 
voila equipe" dun banc de montage 
pour ras films. Ceux-d, composes de 
plusieurs animations, peuvenl 
d'ailleurs offrir a on moment donne" 
plusieurs chemins d'animation, D6- 
finir des eltcts de transition entre les 
sequences, g£rer le passage d'une 
sequen- ce a une autre par une ac- 
tion du type cllc-souris on frappe- 
clavier devient facile avec le moduli. 1 
Presenter. 

L'animation pourra suivre tm che- 
min different selon la touche frap- 
pee ou La zone de ['image selection* 
nee : elle se mfitamor- phose ainsi 
en une presentation Interactive. 









i 
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G 



I. a presentation tt'iui montage de 
par conditions de passagt 



film interactif par applies 
ri'un animation a Vautre 



in presentation dHin montage de film interactif par document ei par 
mode de transition tl'nn animation a Vautre 



Presenter vous permet aussi 

d'ouvrir une application ou mi fi- 
chier, le temps necessaire a la repaid 
sat ion d'un travail. En refermant 
votre application, vous revenez auto 
matiquement a votre sequence ini- 

ii.ilr ( rsl plulnl. Wen, mm ! 

A rioter qu'un module Sonoriser 
permettant la synchronisation des 
animations et d'une bande son pre.i- 
Lablement digitalises avec MacRe- 
corder, verra le jour tin septembre 
1 988. 

Silence : on lourne ! 

A moins d'etre timid*.-, vous aure/ 
envie - et besoin- de visionner les 
[mages fixes (ce qui evite d'avoir a 
les compiler) , los sequences ani- 
mees et les films que vous veiuv de 
creer. Utilise/, alors le module Re- 
garded II vous permet de controler 
les productions avant utilisation el 
com porte tons I es p c r fee lion n e- 
ments necessaires : arret sur image, 
defilement pas a pas... 
Film Maker on ne dfsormais les 
portes du Desktop Presentations 
auiinc grdce a sn dimension interac 
lice Ires appreciable duns ton les 
presentations de projel. travail de 
formation et realisation de didiicli- 
th'ls. Toiltes les animations realisees 
avec I'il in Maker peuvenl el re trans- 




ferees en video (avec nue iuU 

de synchronisation video) . Ce 
<le logiciel tree an besoin 
d'utilisvr le magnitoscope ou le 
ROM comme des piriphtria 
classiqu.es au mime litre 
Vimprimante. 



rfnee 
type 
reel 
CD- 
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Eureka® 
The Solver 



Dominique RERNARDl 
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Poursuivant sa politique 
d'adaptation aii Madntoih 
de ses pruduits pour IBM 
PC, Borland propose de- 
puis 6 mois aux Etats-Unis 
| une version Mac de son logiciel de 
resolution d'equations Eureka® The 
Solver. C'est la version americaine 
que j'ai testee, mais Borland affirme 
que la version franchise esl acluclli'- 
ment disponible. 

Que fait ce programme ? L'ulili- 
sateur ecrit, dans une fenotrc de 
texte classique, tin certain nombre 
d'equations el de contraintes que 
doivent verifier les variables d'un 
probleme. La rommande Solve de- 
mando alors a Eureka de trouvcr 
iles valeurs des variables sntisfai- 
sant a toutes les equations et con- 
traintes. C'est essentiellement tout. 

Une originalite interessante de ce 
logiciel est qu'il peut rcsotldro des 
problemes d'optimisation. Par 
exemple, quelle est la valeur maxi- 
mum de la fonction x + y + z sur 
1'ellipsoidc d'cquation x 2 + 2 * y 2 + 3 
* z 2 = 5 ? 



$ max (u) 
! u = x + y + z 
x*x+2»y*y+3*z*/=5 
Voila pour lononce. La commando 
Solve donne presque instantane- 
ment le resultat dans une autre fe- 
netre: 

Solution 

j Variables Values 

» = 3.027651)4 

I x = f. 65 14456 

y = 0.82572286 

z * 0.55048187 

Confidence level = 98.7% 
All co straints satisfied. 
Toutes les expressions sont con- 
struites a partir des cinq operateurs 
arithmetiques (+, -, », /, ") et des 
fonctions predeTinies. A celles qui 



son! classiques, s'ajoutcnl deux 
fonctions financieres, ainsi que 
DERIV et 1NTEC qui permettenl 
comme leur mini I'indique de cal- 
culer les derivees et primitives de 
fonctions donnees. 

L'interface utilisateur est presque 
standard, ce qui facilite beaucoup 
l'apprcnlissage du logiciel (il 
semble qu'aucun programmeur ne 
puisse sompecher totalemenl de 
refaire mal ce qu'Apple a bien fail. 
Ici, les messages d'erreur sont dans 
de tausses fenctrcs d alcrlc qui obli- 
gent a cliquer la souris: pourquoi 
pas des vraies, que Ton pourrait 
aussi acquittcr avec les touches en- 
tree et retour chariot ?). Toulelois, 
on aura interet a lire attentivement 
le chapitre d'exemples pour com- 
prendre comment chaque directive 
est utilisee. 

La syntaxe des "equation files" esl 
Icgercmcnl inconsistante (par 
exemple f(x) := 2*x signific que f est 
one fonction de x qui vaut toujour* 
le double de x, tandis que a :• 2 si- 
gnifie qu'au debut du processus de 
rechaerche de la solution, a vaut 2, 
mais cela ne reste pas forcement 
vrai); toutefois elle esl assc/ simple, 
on s'y habitue done vite. Un point 
est cependant reste obscur a mes 
yeux: il faut, dans certaines circon- 
stances, donner la directive $ sub- 
stlevel = pour que Eureka calcule 
ce que Ion veut, mais comme le 
mecanisme de substitution n'est 
pas detaille, lemploi de cette direc- 
tive relive encore pour moi de la 
magie. 

Le programme est fourni en deux 
versions, dont 1'une utilise le copro- 
cesseur 68881 du Macintosh II. 
Cette derniere version est jusqu'a 
20 fois plus rapide. 

Une option du programme, qui n'a 
pas beaucoup de rapports avec le 



reste, permet de tracer des graphics 
do lonctions d'une variable rccllc. 
C'est tres rapide et bien fait, on peut 
agrandir le graphs aux endroits in- 
teressants, cliquer en un point et co- 
pier dans le presse-papiers les coor- 
donnces de la souris (relatives au 
repere du graphe, bien sur). 

Les hmites du programme sont mal- 
heureusement vite atteintes: pas 
plus de 20 equations ou contraintes 
par probleme (7 si la directive % 
complex est utilisee), pas plus de 10 
fonctions definios, pas plus de 20 va- 
riables, pas plus de 10 conversions 
d'unitos, etc. Tous ces chiffres sont 
tres bas, ce qui explique que les 
nombreux exemples fournis sur le ,' 
disque el expliques en detail dans le 
manual ne depassent pas le niveau 
d'un exercice: Eureka n'a tout sim- 
plement pas la puissance necessairc 
pour trailer de gros systemes. 

Si vous avez souvent besoin de re- 
soudre rapidement des equations 
simples, ou de pelits problemes 
d optimisation, la ripidit; .1 la hi.-i- 
lite de mise en o'uvre de ce logiciel 
vous seduiront. Eureka ne rempla- 
cera cependant pas des codes spi 
cialises si vous avez de vrais pro- 
blemes de programmation lineaire, 
par exemple. 
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JoliWrite est un editeur de 
texte sous forme d'accessoire 
de bureau, permettant des 
manipulations sur des fi- 
chiers dune taille maximum 
de 32K, au format "texte pur". 
Ses options de forma tage simplifient 
U preparation de textes a imprimer 
rapidement ou a expedier vers un 
serveur. II fonctionne sur Mac 512/ 
800, Mac plus, Mac SE et Mac//, 
avec tout System a partir de 4.1. II ne 
fonctionne pas avec l'ancienne ROM 
64K (Mac 128 et 512). 

Presentation 

L'ouverture de 1'accessoire fait appa- 
rattre une fenetre portant le nom 
"JoliWrite" dans le coin superieur 
gauche. Ce nom sert de titre a un 
"PopUp Menu" (figure ) permettant 
Faeces a JoliWrite aux possesseurs 
dun petit ecran dont quelques logi- 
ciels monopolisent la barre des 
menus. C'est I'un des premiers logi- 
ciels a utiliser les menus hierarchi- 
ques tres adapted aux changements 
de caracteres et de taille, et plus ra- 
pides que les dialogues. 

les menus 

JoliWrite donne acces a cinq menus 
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"A propos" permet de lire les in- 
structions les plus completes que j'ai 
jamais vues, ainsi que les prefe- 
rences (figure ); eelles-ei, de meme 
que le jeu de caractere, la taille, et 



JoliWrite 2.0 



Dominique MASNERJ 



en general tous les reglages, sont 
automatiquement sauvegard^s a la 
fermeture de JoliWrite. 




"Fichier": comprend toutes les op- 
tions standards habituelles, plus une 
auto-sauvegarde reliable. 

1 Format": Conversion ASCII, justifi- 
cation et marges sont un des points 
forts de ce DA qui vous le rendra in- 
dispensable si vous desirez ciimmu- 
niquer avec un serveur. Les pro- 
blemes d'accents franqais sur les 
serveurs sont en effet resolus par 
une fonction instantanee de conver- 
sion ASCII. Une fois les reglages ef- 
fectues, l'utilisateur n'a plus a se 
poser de questions : avant d'envoyer 
un message, il suffit d'£crire le texte 
"au kilometre", de le formater puis 
de l'exporter: pas plus compliqut'! 
(voir les reglages ) 

"Texte": Les possibilities habituelles 
de recherche remplacement sont ac- 
compagn£es de conversion Majus- 
cules/Minuscules, et ASCII. 

"Impression":Les modes d'impres- 
sion standards sont disponibles, ainsi 
qu'un mode "brouillon" ultra-rapide, 
occupant toute la largeur de papier 
disponible. 

Conclusion 

Si 1'on ajoute des "raccourcis" cla- 



vier, une interface standard, la com- 

patibilite Multi Finder, la fonction 
permettant d'annuler ou de "dis- 
annul e r " toute action (par 
I'intermediaire judicieux d'un bou- 
ton pr£cisant la derniere action ef- 
fectu^e), vous comprendrez pour- 
quoi JoliWrite est un des accessoires 
les plus recommandables et pour- 
quoi Benoit Widemann fait mainte- 
nant partie de I'£quipe MAK FAN!. 

Benoit Widemann (BWW) est venu 
a I'lnformatique par le biais de la 
musique. Pianiste classique de for- 
mation, il s'est orients, aprds des 
ft tides de direction d'orchestre, vers 
la musique de varie'te'. Accompagna- 
teur de Maxime Leforestier et de 
Catherine Lara, it participe a 
('orchestration et a I'enregistrement 
de nombreux disques. Sa curiosity 
pour les techniques modernes I 'a 
conduit tout naturellement a 
s'interesser a I 'interface MIDI pour 
laquellc il a realise un certain 
nombre d' applications en C, son Ian- 
gttge de predilection. Collaborateur 
at MakFan, il public, dans la partie 
technique de ce numtro, un article 
orient? traitemeni de texte. La quali- 
ty de JoliWrite lui a vain une recon- 
naissance Internationale dans le mi- 
lieu des programmeurs. 

JoliWrite est disponible sur Calva 
ou chez Benoit Widemann 68, ave- 
nue d'ltalie, 75013 Paris. 
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SPECIAL APPLE EXPO 

PRIX EXCEPTIONNEL 

DISQUE DUR 20 Mo SCSI 

3372,68 F HT 

(QUANTITE LIMITEE) 
GARANTIE 1 AN PIECES ET MAIN D'CEUVRE 




EXTENSIONS MEMOIRES POUR MAC PLUS SE 
MAC II : ' ' 

Nos extensions memoires sont homologuees Applet 
Capacity Prix HT 



DISQUES DURS EXTERNES FREE 

(livre avec cables et manuel) 
Capacite Vitesse 



2,5 Mo 
4 Mo 

8 Mo 



5500,- 
11000,- 
22000,- 



40 

60 

80 

100 

140 

320 

640 



Mo 
Mo 
Mo 
Mo 
Mo 
Mo 
Mo 



40 ms 
30 ms 
28 ms 
28 ms 
20 ms 
16 ms 
16 ms 



Prix HT 

6316,- 
7590,- 
10000,- 
11282,- 
15833,- 
35000,- 
65000,- 



VENTILATEUR SILENCIEUX POUR MAC SE 

250,- HT 



SERVICE DE MISE A NIVEAU DE MAC 128 ET 512. 



SAUVEGARDES 

DISQUES DURS A CARTOUCHE AMOVIBLE 

11000,-HT 

Cartouche 20 Mo 1100,- 

Cartouche 30 Mo 1500 - 



PHOTO NON CONTRACTUELLE - PR 



IX REVISABLES SANS PREAVIS 



UT g?f =S§* ^pl 36, rue BERZELIUS 75017 PARIS 

;^a ^m% ^J JUljJ TELEPHONE : (1) 46 27 45 49 

FABIEN ROV ELECTRONIC ENGINEERING T ELECOPIE : (1)46 27 99 60 



Pour toule demande de documentation S 

renvoyer ce coupon a ^ 

FREE 36, rue Berzelius 75017 PARIS ** 

Societe 



Norn 



Adresse 

Telephone 

Materiel Interesse,. 



CalvaCom: 
un serveur 
professionnel. 



Dominique MASNER1 




calva 




Parmi les prod u its et sod&es 
de services presentes par 
MakFan, il en est pour les- 
quels nous ne pouvons dis- 
simuler tin certain enthou- 
siasme; c'est Le Cas de RCI - Keseaux 
et Communications Informatiques - 
, plus connue sous le nom de Calva- 
eom (ou Calva pour les inities), so- 
ciele solide et serieuse, qui, sous le 
nom de Calvados, avail ete iniliale- 
ment ereee pour les utilisa tours 
d'Applell. 

Elle m'a personnellement reconcilie 
avec le qualifiealif incontournable de 
"telemntique", dont 1'utilisation ex- 
cessive me rappelait mon jeune 
temps oil tout produit "serieux" se 
devait absolument de posseder le 
label "Electroniquc" puis, quelques 
annees plus tard, celui d' "Informati- 
que" pour trouver credit aupres de 
laeheteur de base, 

Au fil des ans, cette society s'est 
do-nc etoffce d'abord en s'ouvrant a 
tous les types de micros, puis en pro- 
posani des prestations profession- 
nelles de tres bonne qualite, le tout 
servi par un materiel adequal tres 
fiable et un personnel alliant la com- 
petence, la disponibilite et, un plus a 
l'heure actuelle, la gen till esse. 

Une preuve immed ia te de ce 
double caractere original particulier/ 



prolessionnel se trouve dans le volu- 
mineux annuaire des abonnes - 
librement accessible-, ou l'on trouve 
les noms de tres nombreuses 
grosses, moyennes et petites entre- 
prises, ainsi que ceux d'une foule de 
particuliers. En effet, hormis quel- 
ques anonymes appartenant a de 
grosses soeietes, il n'y a pas de 
"l'seudos"sur "Calva", mais les noms 
reels des abonnes, ce qui responsa- 
bilise les participants. 

Les services 

Bien que le nombre de services of- 
ferts evolue assez rapidement pour 
repondre a des besoins nouveaux (cf 
la le service Telecopie), on peut citer, 
parmi les plus connus : 

La Messagerie : 

Envoi et reception de messages (Un 
Minitel suffit) i\ toute heure, en tout 
lieu, possibility d'accus£ de recep- 
tion, transmission simultanee a plu- 
sieurs abonnes, etc. C'est un des ser- 
vices les plus pratiques et le plus 
utilise: il permet d'envoyer des textes 
ou meme des programmes, a un 
cout independant de la distance. De 
nombreuses societes 1'utilisent pour 
envoyer des notes ou des informa- 
tions a leurs succursales, evitftftt 
ainsi de se poser la question du 
delai, de graves £ventuelles, des 
jours ieries, etc. Avec plusieurs 
echanges possibles dans la meme 
journee, on est vraimenl tres loin des 
Ptt! 



Le service Telex, ideal pour toute 
petite enlreprise ou particulier ne 
voulant pas investir dans du materiel 
couleux, permel, pour un prix voisin 
de celui d'une lettre, d'echanger des 
Telex avec 1'un des 1,7 millions 
d'abonnes du monde entier, ceci, 
meme a partir d'un Minitel. 11 
semble difficile de proposer mieux 
ou plus simple. 

L'ALP propose, en temps reel, son 
service de depeches, ainsi que cer- 
taines possibilites de recherche, de 
tri, etc. 

Le Service boursier offre les eola- 
tions d'environ 4000 valeurs sur les 
places financieres; non sou lenient 
vous pouvez disposer d' historiques, 
graphiques, et tendances, mais il 
vous est possible de passer des 
ordres de vente ou d'achat dans un 
fauteuil! 

Teleconference animee par des pro- 
fessionnels, forum ouvert, AH' spe- 
cial bourse, rien ne manque, sauf 
peut-etre l'ambiance sonore du Ca- 
lais Brongniart! 

Le guide des compagnics ae- 
riennes (OAG) 

permet d'obtenir toutes les informa- 
tions pour relier deux villes quelcon- 
ques de plus de 11)000 habitants dans 
le monde entier; l'h6tel etant gene- 
ra lemenl la continuation logique 
d'un vol, toutes sortes d'information 
sont accessibles sur ces derniers. 

Les Cites (une quarantaine) sont 
des ilols disposant d'une certaine 
autonomic a l'interieur de Calva. 

Animees generalement par un res- 
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ponsable, ellea peuvenl §tre profes- 

sionneUes CAFCET), d'acces privO cm 
semi piivi' (Architectes, MMedns), 
ou libre. L'avantage principal pour 
una socWM desiranl une eiM privee, 
eat de pouvoir s'offrir un vrai serveur 
I personnalisS, sans s'embarrasser du 
materiel informarique et de la main- 
tenance. 

Les Cites "d'utilisateurs enthou- 
siastes". 

8ien que ce distinguo n'exiete p.is 
oiik-iellement, je I'adresse plus paxB- 
culierement aux cites d'accgs libres 
(Mac, Sciences, Mathematiques 
MIDI, Ibm, Atari, etc.). 
IX> son origjtae Apple II, Calvacom .1 
su garde" l.i fralcheur , le naturel, le 
gout de l.i decouverte des nouveau- 
les intelligentes, el une jeunesse 
d'espril quo Tnn retrouve avec pl.iisir 
dans Unite l.i partie "forum des 

lilt's, ou l.i qu.ilite des ivponsi's n'a 

d'egale que l.i pertinence des ques- 
liuns, l,i solidiie des contributions 
techniques n'excluanl jamais un hu- 
mour l,i plup.iri du temps Ires heu- 
reux; el jo suis stir que vous aurez 
comme moi, beaucoup do ni.il .1 no 
p.is etre secluil par lea reparties 
d'une sympathique "Pan", les contri- 
butions concises et definitives dun 
Dominique Bernardl, la competence 
ei lo devourment d'un omnipresent 
"c hat", les connaissances epoustou- 
flantes d'un "Daniel", les Hyper 
quesrlons/reponses spirituelles dun 
"JBS". |o manque do place pour dter 
los Innombrables contributeurs do 
iju.diio (oo pourrait Wre vous!) quo 
I'on rencontre a chaque nouveau 
J branchement, et qui, sous l.i supervi- 
sion amicale et juvenile do Chine 
Lanzmartn, donnent a ce lieu de ren- 
contre une atmosphere chaleureuse 
do qu.iliio oi do naturel. lo crains do 
paraitre un tantlnel dithyrambique, 
aussi, |e terminerai cette Introduc- 
tion on empruntanl .hi docteur lo.ui 
Benedict do s.iussure (JBS), ce dia- 
gnostic qu'il porte sur lo Mac, et qui 
mo p.ir.iii .issoz bien adapte" aux fo- 
rums do Calva: "ce n'esl pas tieces- 
sairement pathogene, m.iis o.i fixe 
diaboliquement des comportements 
(...) addicHfs". 

Comme lout cela est Wen loin do 
certaines sod&es ou lo masque cari- 
catural du jeune cadre-commercial- 
dynamique fait office do savoir, ou 
los grands comptes font los grands 
amis, dans lesquelles l.i part essen- 
tielle do r.iotivito consiste a preaser 
lo fruit pour on exlraire lo maximum 
Jv dollars , ou la technique commer- 
ciale prond lo p.is sur l.i creation.... 



article ,i I'imprimerie, i'apprends 
qu'un nouveau service est mainte- 
ii.inl disponible; pour un minimum 
do I4.S0 lis, ii est possible d'envoyer 
une lolooopio .uissi facilemenl qu'un 
message, dans lo monde entier. 

L'ouverture sur le monde 

Pour terminer cette presentation gfr 
nor.ilo do Calvacom, il mo semble 
Important do preciser l.i deuxieme 
grande qualire do ce service: 
Pouverture sur lo monde. Grtce a 
dos accords conclus avec des sodfr- 
tos suisso, allemande, beige, afri- 
caines, anglaise et nord amerlcaine, 
Calvacom s'achemine vors une con- 
nection ave< le monde entier. 



les larifs 

los i.irils soni composes d'un abon- 
nemenl mensuel d^ 250 Frs, auquel 
s'ajoute: 

- =14 Frs 1'heure do connection pour 
los p.iriioulkTs. 

-90 Frs pour los services profession- 
nols (Bourse,Telex,AFP,OAG). 
Lo tarif horaire comprend lo pri\ do 
l.i communication I'll' II faut comp- 
ter un outre un minimum de factura- 
tion mensuelle do 90 francs I IT. 
[-'utilisation dim modem 1200 bauds 
permet (malgre" une surl.no horaire 
do 15 li-s) do limitor tes factures a 
dos munt.uiis (mil ,i fait raisonnables 
compte-tenu Jv l.i quality des Infor- 
mations fournios et dos services ren- 
dus. 

N13: tons les prix mentionnes sunt 
1 lors Taxes 



L'equipement de base 



La telccopic 

I'ou do lumps ,iv, ml d'envovi 



Si, on principe, un minimi suffit, il 

est beaucoup plus agrtable d'utiliser 

un Mac (ou tout autre micro) pour so 

connecter. 

Deux .uoossoiros soul indispen- 

s.iblos dans oo o.is; un modem ei un 

logidel do communication. Id c'esl l.i 

quo lo b.ii blesse. 

I'n effet, comme pom les logidels, 

los prix francais dos modems sum 

une caricature enontee dos prix US. 

II nous faudra denoncer une fois de 

plus oo so.ind.ilo on donn.inl dos rai- 

sons ot dos ohiiiios dans notre pro 

chain numero ( si vous trouvez ces 

raisons dans d'autres revues, faites 

nous le savoir, par simple curiosity 

dos rare les). 

Pour lo moment, sachez qu'un equi- 

pomont correct vous coutera: 

- 5800Frs pour lo modem "lull 12(H)" 

d'Apple. Aux USA. un "FuI12400" , qui 

Ir.lnsloru deux lois plus vilo. eoiile 



onlro 1211(1 ol [500Fr« ; ,i oo prix-l.i, il 
s.iii tout faire saui le o.iio (et en- 
core?!). 

- 2250Frs pour un bon logiciel de 
oommunic.ilionlM.u'l'oll.l par 
exomplu). 

Si Ton .iddilionno ces ehilires, on v.i 
certainement trouver un peu dou- 
toux I'argumenl avanc* pour lo s,t- 
vioo Telex, quand on salt que pour 
un pri.x voisin, Canon ot (Apple Men- 
lollproposo un oombino modem/ 
Fax/Telex avec tout lo serieux quo 
I'on pout attendre d'une soctete" |a- 
ponaise. 

Nous publiorons done, d.ms In p n >- 
chain numoro, los moyens do vous 
oquipor pour environ lo i/i (voire 
moins) du prix monlionno. 
Un ospoir osl oopond.uil rres proolio 
do voir une degringolade dos tarifs 
avec l.i miso on oeuvre du 2400 
b, mils sur Transpac; on effet, la 
normo americaine V22 Bis Stent 
I'onlorme .nix normos ournpeennes, 

aucune homologation no devralt 
s'opposer ,i ['importation do materiel 

.1 un prix honnolo (encore que...?). 

CalvaCotn et le Mac 

La Cite Mac 

Animoo depuis Los Angeles par 
notre (interj-nationale, dynamique et 
romanciere Chine Lanzmann, olio 
oiho une foule do services susoep- 
Ubles d'interesser plus particuliere- 
rnenl los Macintoshlens: 

- bibllotheques : environ 4000 ap 
plications, (eux, Donios, Dessins, 
Aooossoiros ou Polices du domaine 
public, Sons, etc, 

- magazines, dont MakFan present 
depuis plusieurs pros dim an, 

- petites annonces, que vous pou- 
vez lire, rediger, supprimer (los 
voirosl), auquelles vous pouvez ro- 
pondre dlrectement. 

des rubriques nouveautc, publici- 
te, ainsl qu'une do conviviality vous 
I'ormoii.uii do partidper on direct, .1 
di's dibats ou dos echanges do vue. 

- ol surtoul, uno quinzaine dv solides 
forums (40, L.ing.iges, Hyper- 
Pomme, Excel, M.ioll, Exploradon 
HyperCard, SolidarSoft, etc.) dans 
lesquels n'importe qui peui poser 
n'mipoilo quelle question on ayant 
1.1 Certitude d'.ivoir Ires r.ipidom.'nl 
plusieurs roponses dans dos del.iis 
iros brefs, oi par dos persormes ires 
oompoii'iui's, si voire concession 

n.nre no (rouve pas l.i roponso .1 
voire probleme -m.iis CIS ne so pru- 

diiii j.im.iis-, je serais (res etonne' 
quo vous m- trouviez pas celle-d sur 
t alva dans les deux jours qui sui- 
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II f.mt rioter a ce sujet que, malgr^ [a 
creation d'un serveur par certaine 

"siKk'ti- a La pomme", les meiUeurs 

elements sonl rrsles branches sur 

Calva, laissant celle-d a ses reveries 
de concentrations horizontale el ver- 
tical©. Aprt's tout, le Calva n'est-U 
pns ['esprit de la pomme? 
Pour terminer cette rubrique Forum, 
je ne resiste pas a vous dormer deux 
histoires courtes extraites du forum 
"Private )<>ke" (Eh oui!): 
■ celle du Beige qui plratail Mac- 
Write i.d. 

- [a definition: OS/2 = Half <in opera- 
ting system 

MakFan et Calvacom 



Le magazine 

iVpuis plusieurs mois, MakFan est 
present darts la partie magazine de 
Calva. La publication en deux par- 
ties, "Grand public" et "DeVeiop- 
peurs", pemiet a ces derniers, 
d'importer les sources publics dans 
la revue. Les programmes presenter 
soni disponibk'N en blbUotheque. 
A partir du prochain numero, nous 
puolierons 3 a A pages des meil- 
leures contributions du forum 
HyperCard, uu dea nombreux fo- 
rums de la cite" Mac. Nous esp^rons 
que la quality de celles-ci vous don- 
nera envie d'en decouvrir plus, et, ce 
que tout le monde souhaite, d'y par- 
dciper vous-meme. 
Les noms des r£dacteurs de Mak- 
Fan presents sur Calva (pros d'une 
dizaine) seront desormais suivis de 
leur code. A partir du premier Sep- 
tembre, vous pourrez aussi poser di- 
rectement vos questions ou faire des 
suggestions en laissant des mes- 
sages dans la boite de la revue dont 
le code d'acces provisoire est DM61. 

Comment se brancher? 

II taui reconnaitre que, iorsque I'on 
vienl du Mac, I'environnement 

Calva est dun ftbord asse/ reharha- 
tif; niais ce serveur, destine a des 
connections avec loutes sortes de 
machines -v compris le Minitcl-, est 
oblige d'uliliser le plus petit eom- 
lnun denonnnaleur: La structure de 

menus hierarchiques dans laquelle 
on avance (ou reculej d'un niveau a 

la luis. 

Ell attendant la sortie dun logiciel 
realise par I'ec|iiipe de Calva et utili- 
3ant pieinement I'interface Mac (dis- 
ponible pour ['Apple Expo), il vous 
laudra apprendre les qiielcjiies eom- 

mandes les plus courarnment it t i l i - 

sees. 

Tour les personnes desirant t'aire 



Exemple d'une session Minitel 


Composez le 3613; 


A "Code du aervice", rfpomdre: i75Ull puis "envoi" 


Apres avoir entre code d'acce* et mot de passe, tapei O via (pour C l u- MAcj attention a 


I'espacel) 

Si vow tapez envoi, vous obteroa le menu: 


l WElcoms? Blenvenue dans la ( lie" Mac! 


2. M Meaaa'gefie CatvaCorri C/M) 


3, FOra Foroma autour du Mat (discussions animeest) 


4. MAgaztne Magaalnesflui le Macintosh (hum!) 


; . COnv ConvivtaliM Croupe Mac 


6, PA Pstttes annonces iw i tales Ma< 


7. Bib Bfoliotheque de programmea Macintosh (teleehargement) 


8. 11-lU- Vob fcextee, documenta, doaalera et programmes (/TEX) 


9, Clii's Ai iv. tax autrea i ttea 


10. CJ ob-hp Assnu.ihnr , ■, reunions HyperPomme 


il. FAn i.i revue MA Fan ! 


iz SOUdareofi rout stir ['aaaodaiion Solidareoft ! 


Tapez Fopour forum (puis "envoi"); vousobtenea 3a lttta 


1) u. cm ' 


2) about am . ' 


3) CONTA< TS ' 


4) NOUVEAI TES ' 


5) I'NAI K.il 1 * 


6) Mi I'iki \\<\i ' 


7) EXPLORATION * 


si i.angai ;es • 


•o MAC II ' 


10) SGBD ' 


IDQUATRE D ' 


i2! Excm. ■ 


t3) WORD/WORKS " 


13) POLEMIC MA£ ' 


t6) SOLIDARSOF1 ' 


17) HYPERPOMME ' 


tSJ PRIVATE JOKE * 


Aprea avoir tape 4, • lea nouveautfi parexempte 


NOUVEAUTESi Option Cou "Envoi" pour !<■ menu, "'" pour assiatance) ' 


TIrres dea contributions 
Lire une contribution 


CLef Recherche pal mota-clera 


DEwlection Abandcnnei votre selection par mota-clefs 


IXVumi'iil Antn-smuvctN J.mvuwr iim- 1 ontnbi il n n . 


PR4fe*rencea ModiHei voa pr*f*rencea CPermet d'effectuei une recherche pai moi cH, 


Mm 'I'M, par exemple) 


Mi. Voua pouvez egalement utillaei d'id let option* REpondre, Modifier, e) 


ri IminertmaispasRDen leafalsanl suivre d'un numiro de contribution. 
Pour lire la contribution 120D, ecrire 


Resume: exemple de recherche de Contribution en ulilisanl li 1 moi eli' 


"modem" dans la rubrique nouveaut6*s: (en gras, ce que vous tape/.) 


36 13 


"Code du service": 1751111 puis "envoi" 


ci ma "Envoi" (Cite" MAc) 


fo 4 "Envoi" CFOrum 4 Nouveautes) 


pr cl "linvoi" (1'Kele rentes CI ,e) 


modem "Lnvoi""IZnvoi" 


li "Envoi" 


Pour rciiumter dans les menus, tape/"!" 


2 points d'oxclamation vous permettront de quitter Calva pour y revenir 


jusqu'a epuismn'iii de voo"e heure gratutte (e'esi peu de icmps, telle- 


nu'iit il v a de chosc-s inleressantes!) 


Bonne exploration! 
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1'essai gr.itnii d'une heure a partii 
d'un Minitcl, void, pour gagner du 
temps, In suite des diflerentes opera- 
tions a effectuer lorsquc vims sere/ 
en possession d'un "code d'acces" et 
d'un "Mot de passe". 
• Faire 3613 sur Minitel. 

- A la demande "Service" tape/ 
1751111 et envoi. 

■ Calvaeom va se presenter et vous 
demander un certain nombre 
dintormations, en premier le code 
d'acces. Tapes tons lea caracteres de 
J celui-ci (y compris le tiret s'il y en a 
un). 

- Puis viendra la demande du mot de 
| passe lourni, suivie de quclqucs 

autres renseignements classiques 
demandes dune lacon trcs explicite. 
(Les lnitiales des noons et prenoms 
servent a determiner le code 
d'acces) 
| II vous sera ensuite demande de 
deer un mot de passe: e'est 
I'olemont elc, car e'est eclui qui de- 
termine entr'autre, le destinataire de 
la facturel II doit contenir obltgatoire- 
ment des leltres ej des chiftres (Mini 
6, Max! 2(1). Note/ soignouseincnl le 
nouveau code d'acces qui vous sera 
iburni lorsque vous aurez tempi] vos 
coordonnocs, et voire mot de passe: 
ce sont les deux elements qui vous 
seront demandes svslematiquemcnl 
a chaque nouveau branchement, 
I'rcncz voire temps pour Wen lire 
toules les explications (Vous savez 
deja presque I'essentiell); ce nest 
qu'une lois que toute ccttc partie 



unique sera termineo que le "chru- 
no" sera doclcnchc pour une heure 
d'oxploration gratuite. 
Commando: celles-d apparaissent 
sous tonne de noni comportant des 
caracteres majuscules: il suffit de 
taper ces derniers puis "envoi" pour 
acceder au menu; pour revenir d'un 
pas en arriere, taper un point 
d'exclamation:".'" et envoi. 

La suite 

Si vous etes satisfaits de ce premier 
contact et desirez poursuivre 
I'experience, ecrivez ou telephone/ a 
Calva au (1) 47.83.20.30; ils pourront 
vous connecter sur le champ (les 3 
premieres hcures sont gratuites). II 
vous laudra acquerir la "boite a com- 
muniquer" (un kit d'abonnement 
d'une valeur de 35llFrs), coffret con- 
tenant un guide complet ainsi que 
diflercnts formulaires. 

I'espere Ires sincerement que vous 
rcjoindroz t'equlpe sympathique de 
Calva; que vous participle/ direclc- 
ment, ou que vous vous eontentie/ 
de lire les contributions interes- 
s.inles , (jo sens que je vnis en offus- 
quer quelques uns. mais il vaul 
micux se taire que dire des belises 
el no parlor qu'a bon escicnt pour 
dire des choscs inlerossanlcs ou 
droit's!) [e suis sur que vous en de- 
viendrez eommc moi un ardent jup- 
porter! 



Offre speciale 

La meilleure facon de se faire une idee d'un produit 
etant de 1 essayer. MakFan en accord avec Calva offre a 
toute personne en faisant la demande, une heure de 
connexion gratuite au reseau CalvaCom. II vous suffit 
d envoyer une enveloppe timbree a votre adresse a : 

MAK FAN BP 33, 94471 Boissy Cedex 
et nous vous ferons parvenir un document comportant 
toutes les informations necessaires. 

Ce document sera aussi disponible a notre 
stand (S3-8) pendant Apple-Expo. 
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4e Dimension 
interface SQL 

univers des mini 
et gros systemes 



Andre IEPET1T 



Vims auriez parie de SQL il 
v a un an, lors d'une reu- 
nion de developpeurs de 
logidels micro, la majorite 
des participants vims au- 
rait regard e avec des grands yeux 
rands, tant il est vrai qu'il paraissait 
encore difficilement concevable qu'i) 
v (.ait une quelconque forme de Ian- 
gage commun entre I'univers de la 
micro et celui des gros systemes. 

On ost, cela Stent, tombe d'un ex- 
treme a I'autre et le snobisme 
s'ajoutant a la rtai'vete naturelie des 
neophytes, on a oublie que pour 
t'heure les systemes relationnels 
supportant SQ3 . ne representeni 
guere que 59! du rnarche" des progi- 
ciels de gestion do base do dormers, 
Est-ce a diiv pour autant qu'ii existe 
95% d'analphabetes ? Tan) s'en faut, 
SQL est seulement un moyen parmJ 

d'autres do romodior a des car en cos 

patentes dans les systemes classi- 
ques oi ce n'esi pout Stre qu'a la fa- 
viMir d'une stagnation relative sur le 
sujet quo la solution SQL s'esl vue 
accorder un tol privilege Ideologi- 
que. 

Soyons elairs ! No contondons jamais 

la realitc de la sdence avec I'image 
qu'on a d'elle. Si Ton so place main- 
tenant du point do VUfi du Macin- 
tosh ot des possibility's inlriiiscqiies 

qu'offre cet ordinateur, ['obsession 

actuelle concernant ['interrogation 

pout faire sourire. 

Essayez done do faire un graphe des 

donnees avec SQL ! 

Pourtant nul ne contredira quo le 

graphe est un Instrument <\c deci- 



sion capita] pour i entroprise, un 
moyon do communication privilegio, 

objeelils vises aussi par SQL . 

D« la memo laeon, oo n'ost pas on 

SQL qu'on offre uno representation 
graphique des liens on des relations 
entre los fielders d'un svsteme. Cette 
visualisation, telle qu'eUe cxiste dans 
4D, pernio! pourtant a I'utilisateur 
debutant, eommo au specialist, 
d'avoir uno ma it rise immediate 
paroe quo visuelle, de structures 
complexes. 

Si Ion respocte la specificite du Ma- 
cintosh, il ost aussi absurdo do vou- 
loir singer les rcqueles SQL quo de 
vouloir faire un Mao compatible MS- 
DOS. De la memo (.icon qu'il serail 
lomeraire de no pas dialoguer avec 
MS-IX)S, il n'ost pas concevable 
qu'une application Macintosh no 
dialogue pas avec un svsteme utilo 
sant SQL. 

La question n'ost done pas : est-on 
on non "compatible SQL "? 

La seule attitude a avoir ost limt sup- 
plement de cornmuniquer ^vc>: une 
nu des bases qui utilisent SQL, aussi 

naturellement qu'il ost obligatoire 

pour n'etre pas un gadget, de savoir 
gagner sa legitimite dans 
I 'in togr.it ion de systemes heloro- 

gfenes. 

L 'architecture memo do 4eme DI- 
MENSION permet unv solution ele- 
gant*.', et il faut bien dire encore uni- 
que en son genre. L'ne articulation 
harmonieuse entre la logique propre 
au\ gros systemes ot lea specilicitos 
irromplacablos, non de La micro en 
general ma is du Macintosh. Alors 



que la tendance ost de roduiro le 
Macintosh ,iu simple role de termi- 
nal graphique, solution derisoire- 
ment couteuse, 1'objectif vise par 
['utilisation de 4L> est d'obtenir a la 

lois un meilleur parlage des taehes 
(traitement, definition et gestion 
physique d'uuv part, exploitation et 
presentation de I'autre) el une sub- 
slanliellc economic au niveau des 
entrees/sorties, du temps CPU con- 
somme par le gros svsteme, sans 
compter les economies de formation 

qu'accompagne ['integration de tels 
systemes. Cette Interactivite est ob- 
tenue de plusieurs facpns. 

1 - Avec les routines 

standard de 4D 

La premiere architecture possible 
consiste a utiliser 415 et le Macintosh 
com me un terminal asynchrone. 
Pour ce faire, il suffit d'utiliser les 
fonctions de communication stan- 
dard de 4D comme REGLER SERIE, 
ENVOI PAQUET, RECEPTION PA- 

QUiiT, etc. Ainsi, a Laid.' d'un 
simple cable et sans logieiel ni mate- 
riel supplementairo, il est doj.i par- 
faitement possible de se connecter 
ties proprenii'iit a Oracle sur VAX 
pour y lanc,er une requetc ot reeupe- 

rer le resultat pour traitement dans 

41). 

2 - Avec des drivers 

specialises 

Cette solution utilise les earaeleristi- 
ques de serveur de donnees on de 

Moniteur (Un moniteur est un pro- 
gramme perm el tant le eon I role 
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interactif d'un autre programme ou 
d'un systeme) d'un programme flonc- 
tionnant sur le site central avec le- 
quel 4D est relie par les moyens les 

plus divers : 

- Lino simple liaison Serie, 

- Lin cable AppleTalk, 
DecNet 

• SNA, etc 

Dans Le cas de SQL, 4e DIMEN- 
SION dispose dune interface inter- 
active pennettant dutiliser SQL 
comme im langage externe, sans li- 
mitation et permetl.ml 1,1 generation 
de reqneles aussi complexes qu'fl est 
necessaire. 

Les deux drivers ad ue I lenient dispo- 
nibles sont SequeLink et CL/1. 

3- SequeLink 

SequeLink est Line interface de pro- 
grammaliun de haut niveau permet- 
lant d'aeeeder a Line base de don- 
nees SQL depuis des applications 
Macintosh. Ce produit, developpe 
par la socicte beige GNOSIS avec 
AHsa System, est distribue en France 



par I'-lngonierie. SequeLink esl 
['interface entre 4e DIMENSION et 
Oracle par exemple sur les machines 
VMS. An sein de 4e DIMENSION, 

CCtte interlace se presente sous la 
forme d'une serie de routines e\- 
ternes. Elle permet a tout utilisateur 
de 4e DIMENSION sur Macintosh 
d'aeeeder en leeture/ccriture, en 
multi-Litilisaleurs, aux donnees des 
SGI3D Oracle , RDB, INGRES . 

Lxemple, une agence de voyage. 
I'renons le cas d'uiu' agence de 
voyage. Elle .1 besoin d'un systeme 
lui permettant de gerer ses donnees 
clients, d'imprimer ses factures, de 
gerer sa complabilite etc ..; ces Infor- 
mations sont internes .i 1'agence. 
Elle doit aussi etre capable de ren- 
seigner ses clients sur les diffcrenlos 
possihiliies de transport existant a 
Line date donnee. Ces informations 
peuvent elles aussi etre gerees [oca* 
lement par 4D; line mise a jour 

ctant a effectuer quand les earaete- 
ristiques d'un vol sont modifiees, an- 
nnlation on changement d'appareil. 

Par contre quand un client veut ef- 
fectuer une reservation, il est impor- 



tant de ponvoir repondre rapide- 
ment a sa question. C'est a ce niveau 
que la connection avec un site cen- 
tral est interessanle . 
Plutot que de eentraliser loutes les 
informations que nous venous de de 
crire, ce qui rend l'utilisation d'un lei 
systeme Ires lourd a tons les ni- 
veau*, on a pre fere dans ce cas limi- 
ter l'utilisation du site central au trai- 
tement de ['information necessitanl 
la centralisation et la geslion en 
temps reel. C'ette utilisation de 
['information decentralisee se laisant 
par le biais de 4D dans un systeme 
integre et non pas par 
linlermediaire d'un terminal separe. 
C'est ce noiiveaii type d'applieation 

integree que ['architecture de 4D 
autorise aujourd'hui . 
SequeLink se compose de dcu\ par- 
ties : un serveur VAX an niveau de la 
base de donnees SQL et un driver 
au niveau du Macintosh. 1,'acces ,111 
serveur VAX pent se faire via DEC- 
net (via TSSnet qui tranforme le Ma- 
cintosh en nceud DECnet) 011 Apple- 
Talk (via AMsaTalk), les connexions 
elant rcalisees sons LocaiTalk ou 

Ethernet. 



4eme DIMESION interface SQL 



4^^ Routines Exlernes 
incluani I'inteiface 
SQL 




Sequelink 
Mac Driver 



Oracle Serveur 



RDB Serveur 



I 



T 



Sequelink Vax 



TSSNel 



AlisaTalk 
Driver 



B 



DECnet 

4.0 



Apple-Talk 
VMS BRIDGE 



LocaiTalk on EtherTalk 



Liasion asychrone ou ethernel sous DECnel 
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CL/1 

CL/1, de Network [novation, pro- 
post. 1 une interface SQL standard, 
dans laquelle les requetes sont les 
menu's, quel que soit le SGBD avec 
leqiu'l on travaille (Oracle, Ingres, 
etc.). C'est un langage de connectivi- 
to, un pen comme PostScript est un 

langage graphique. 

CL/1 est une interface permettant a 
un programmeur d'inclure des re- 
queues SQL dans son application. 
CL/1 ajoute une couche au dessus 
de SQL pour degager le develop- 
penr de la formulation SQL propre- 
ment dile, qui non seulement est 
eompiexe a mettre en leuvrc, mais 
soulfre loujours des particularities de 
Chacun des differents systemos. 

La progrnmmation ^vvc CL/1 utilise 
quant a elle, des ordres standardi- 
ses, [a formulation des requeles SQL 
particulieres etant laissee a 
['interface CL/1. Celui-d separe 

done eompletement I'interface SQL 
et le serveur SQL en les reliant par 
un langage standard. 
CL/1 permet aux developpeurs Ma- 
cintosh de construire des applica- 
tions capables de dialoguer avec un 
VAX sans ecrire de programme 
VAX, et ceci via AppleTalk on Llher- 
Net en iililis.mt les protocoled DeC- 
Net. 

Solutions en cours... 

Un certain numbre de soeietes 
ayani developpe des SGBD ulilisant 



,«»»< lol 







VAX VMS 
SGBD 



Les nouvelles solutions de connectivite 

Profitant des possibility offer! cs par les base de donnees 

relalionnelles ulilisant SQL. 

Elles introduisenl la possibility de connection Inlelligentc 

En ulilisant les possibilities de 4e DIMENSION BaH de dnnnec reiulionnellc 

et gSn&ataurtfapplication sur te macintosh 

Deux interfaces sont diponibles ii ce jour : 

CL/1 De NETWOK INNOVATION 
SQLINK De Gnosis (P lngenerie) 

On est capable de se connecter a une ou plusieurs bases de donnees. 
D'elablir avec elle une relation tie type Task to Task 
et ce en (cspeclaii! : | ;| SCL - lir i 1 e d'acces aux donnees de la base done 

les prerogatives da DBA 

La security VMS 

Tout en apportant a I'utilisateuf la possibilile de manipuler ses informations de I'agur 

autonome. 

Bn preservanl au maximum les ressources du site central 

Le Macintosh assurant le contrdle de saisie. ['envoi . el la reception des requeues . 

SQL, comme Digital avec RDB, sont 
en train d'introduire des API (Appli- 
cation Program Interface) permet- 
tant dacceder par 4e DIMENSION, 
directement a VAX SQL de DIGITAL 
via AppleTalk sous V.MS, par 
exemple. 

Ces Interfaces SQL ne sont qu'un as- 
pect des possibilities offertes par 
4eme DIMENSION en matiere de 
communication et cartographic de 
donnees. Le meme type de function 
nalites existe aussi dans des environ- 
nements aussi differents que 
Dhase-lII sur MS-DOS OU des sy- 
ternes eonimi' 1 AS 400. 



Macintosh+4D 

- Base de donnees relauormelle svx Micro 

- Gestiori graphique de l'ecran poussee 

- Interface utilisateur "riatnrelto" 



CL/1 Serveur 
^ Ou 

AlisaTalk 

TSS Net + SSP 
Serveur 



- Ease de donnees relationnelle sur Mmi 

- Architecture cur^rte 

- Serveur muiti-forLCtions 
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SQL. Structured Query Language 

SQL . Co langage est Issu des travaux d'IBM, entaines il v .1 une ving- 
t.iint' il'.innt'L's, destines a mettre au point un systeme de gestion 

d'inlormation permetlant la manipulation des donnees de faqon trans- 

parente ei plus aisee m\ programmeurs dea sod&es utilisatrices de 
ces gros systemes. A bien des figards dans I'idee de SQL on peut voir 
t'une des premiere demarches visant <i considfirer que la machine est 

au serviee de l'homme ft non ['inverse. 

Lea systemes existant a I'epoque, que se soil lee "Flats files" (fichier s& 
quentiel Indexes, fkhiers ISAM ou VSAM), ou bien les bases de don- 
nees hierarchiques, rt'autorisaieni pas ce type de manipulation, sans 

qu'il soil tu'vess.-iiiv de eonnaitre eti detail la nature el ['organisation 
physique des donnees snr le disque. (.rave defaul, qui oblige les pro- 
grammeurs et les utilisateurs de tels systemes a non settlement ap- 
prendre ties choses "sans grand interet en matiere de demarche et 
d'exploilalion defl donnees" et de plus a eerhv de tongues procedures, 

qui conaacre^es, par exemple, a ne geVer que des prooleinea d'entree- 
sortie, perdent toute portability si Ion change de systeme. En d'autres 

termes, la visee d'lrlM etait tout simplement de reduirr les systemes 
de gestion tie donnees a ce qu'ils sont, e'esl a dire iw\ outil, et non pas 
mi but en eu\ memes. 

Ces ree here lies ont debouehe quelques an noes plus tard sur 
1'elaboration du langage dont nous parions aujourd'liui: SQL (pour 
Structured Query Language) il a donne naissance .1 la norme SQL 
ANSI (American National Standards Institute). Ce langage utilise une 
representation objet des different figments (information d'un svs- 

teme), alnsi que de nombreuses tone turns destinees ,1 la manipulation 
de telles u, aVfiC eomme autre snuei, la gestion des acces multiples. 

l.e but du langage SQL est d'fitre un moyen de gestion de donnees (a 

tons les rtlveaux ; manipulation. dolinilion.aeios), ( >| ce quel que Soit le 
noyau, a p.utir du moment ou celui-d est organise" autour du concept 

ivlationnel. Malheureusement, yw\ certain nombre de Eacunes du lan- 
gage ont ete eonstatees lors de son utilisation effective, aussi bien dans 
la manipulation des donnees que dans la presentation de celles-d. Les 
ditferents fourniss.-urs de SGBD, que ee soient des labruants de mate- 
riel eomme IBM avee DB2, ou des editeurs eomme Oracle <- orporaiion 
avec Orade, ont done ete amenes a ajouter leurs propres lonrtions ,m\ 

speciHeatitnis de base du langage, en ulilisanl une Interface parttcu- 

lieiv. Si Irs principes generaux son! loujours les memes, ehaeun des fa- 
brieants a introduit des variantes, an niveau do ['interface des fonc- 
tions e\is(antes, mars aussi en ajoulanl puremenl et simplomenl de 
nouvelles lonetions qui donnent a eelte portability universolle un cer- 
tain nombre de limites pratiques en matiere de portability inter- 

systeme. 




RECYCLEZ VOS CARTOUCHES !!! 

LE LASER PAS CHER 

o 350F HT et c'est reparti pour 4 000 copies d'excellente qualite en noir 
O 475F HT et le BLEU ou le SEPIA ravivent vos documents 
\ O 50F TTC c'est le prix de votre cartouche vide , ne Id jete? plus II! 

RENDEZ-VOUS A APPLE EXPO EN D 1 1 !!! 
I E U E L E C Tel: 30 55 66 84 1 307 rue de la Boissiere - 78370 PLAISIR 
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VIRUS, 

Vaccins et Serums 



Daniel BEG1MN 



La aimiinm.itiir des Macin- 
toshes d'Outre-Atlantique 
vit depuia L'automne 1^87 
dans la crainte d'un m.il Ln- 
sidieux, multiforme, qui 
seme le doute dans ['esprit des utili- 

sateurs et la pagaiile dans lcs fi- 

chiers; il s'agit des vims, dont 
Mak Van vous a deja parte" dans son 
numero 8. A limitation de son mo- 
dele bioloj;iq u k\ If virus Lnformati- 
que penetre, sans v avoir file" invite, 
dans tin organisme, systeme, appli- 
cation on document pour s'y dupli- 
quer d'abord, r^pandre ses toxines 
ensuite, et provoquer finalement hi 
destruction de son bole, en ggnerant 
des erreurs systeme. Programme par 
des dements qui se prennenl peut 
fitre pour des genies, il se repand a 
la faveur des eebanges de dis- 
quettes, des tilechargements sur Les 
serveurs telephoniques, et meme 
par le bi.iis des programmes de de- 
monstratlon diffuses par des societes 
d'informatique. Le ma I, apres avoir 
sevi en Amerique (on dit que meme 
les ordinateurs de la NASA sont con- 
famines), attaint malnte n a n t 
1' tiu rope, prineipa lenient 

I'Allemagne de L'Ouest et la France. 

l'eu apres lapparition du virus, des 
movens de lutte se sont developpcs. 
S'agit-il d'un aeces de lievre sans 
Ii.-ndem.iin on dime veritable course 
aux armements entre des souches 
toujours plus resistantes el des vae- 
eins ou serums toujoLirs plus perfec- 
tionnes? 11 est encore trop tot pour le 
dire. Sans vouloir ceder a la psy- 
ebose, il est cependant interessant 
de savoir quelles sont les espeies de 



\ p irus actuellemenl re'pandues, et ce 

que valenl les medicaments informa- 
liques disponibles sur les serveurs 
franca is. 

Les souches de virus (deux 
pour Pinstant...) 

Le virus le plus eelebre, le plus 
m.ilin, le plus pernicieux est sans 
conteste nVIR, celui-la meme que 
Mak Fan a tnvolontairement experi- 
ments pour ses lecteurs. Sa princi- 
pale force esl d'infecter les utilitaires 
de 111,1 nipul.it ion des ressources, 
dont ResEdtt . Aux dernieres rtOU* 
velles, il se cacbe dans des pro- 
grammes de demonstration, comme 
eeku qui a ele communique a 

Mak l mi , tnais il se trouve aussi sur 
les utilitaires lournis avec certains 
disques durs en provenance 
d'Auemagne. Prudence done. II 
commence par s'installer dans les 
ressources CODE en creant mi ID ■ 
256, puis, lorsque ['application est de- 
venue suffisamment importante, il 
eree sa propre ressource nVIR. II 
s'apei'coit des tentatives directes 
d'eradication par Cut et Clear et 
donna alors l'illusion de disparaitre, 
inais ,111 redemarrage suivant, il est 
de nouveau present. Sa destruction 
doit tenir compte du fait qu'il rem- 
place 1111 bout de code, dans 

['application parasitee, par un bran- 
chement a ses propres ressources, 
ou le programme doil obligatoire- 
111 e n t passer pour retrouver 
L'intSgrttS des s-£3 fonctions. I irtuU 
precedent de Mak Fan , BSSez pessi- 
miste, VOUS conseillait de remplacer 
purement et simplement les pro- 



grammes con ta mines. C'esf evidem- 

meni la demarche La plus sure et la 

plus rapide. Cependant, si pour une 
raison ou pour une autre, VOS fi- 
cbiers n'ont pas de rempiac.ants, il 
est possible de suivre les procedures 
suivantes, comme Le signale notre 
confrereMacfn/ormsffifKe n"4. Avec 
1'utilitaire ResEdtt place sur une dis- 
quelte differenle et VLRROL'ILLLL 
(Write protect), examine/ si nVIR se 
trouve dans le ficbier System ou len- 
der. C'est sous System que la repa- 
ration est la plus simple. II vous fau- 
dra supprimer par un Cut la 
ressource I NIT ID=32, et ensuite 
seu lenient couper les ressources 
nVIR presentes sur vos autres ii- 
cbiers et documents. En revancbe, 
si le virus s'est inslalle dans le ficbier 
binder, il taut d'abord effaeer (Clear) 
la ressource CODE ID=25d, Ensuite, 
dans CODE ID=(), on supprime 
i'instruction de brancbement CI til a 
La ligne 3. On OUVre alors alors la res- 
source nVIR, on cherche ID=2 dont 
on cople le eontemi en totaliie pour 
le coller dans la ressource CODE 

LD»Q a la suite de la Ligne 2. Le fi- 
cbier est desormais a nouveau d'un 
seul tenant. II tie reste plus qua sup- 
primer les autres nVtR, sans en ou- 
blier OU sinon, gare i\ux recliutes! 

II existe un autre virus moins connu 
et qui ne semble pas encore avoir 
fait de ravages en France, du moins 
a ma connaissance: il s'agit de 
Scores, ainsi nomine parce qu'il in- 
stalle un fichier de ce 110m dans le 
Dossier Systeme. On peut le detee- 

ler en reslant an niveau du Bureau. 
Si, dans votre Dossier Systeme, vous 
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possedez le fichier de 1' Album 
(Scrapbook) ET celui du calepin 
(Note Pad), examinez leurs icones. 
Norma lement, elles representent 
des unites centrales Mac (comme 
celles du System ou du Finder). Si 
elles sont remplacees par des icones 
generiques de documents, une page 
blanche cornee en haut a droite, 
c'est tres mauvais signe. Examine/ 
alors l'ensemble des applications et 
fichiers avec un editeur hexadecimal 
stir Line disquetle separee et VER- 
ROUILLEE {je prefere me repeter), 
par exemple Fedit , pour rechercher 
les chalnes ERIC et/ou VULT. Si ce 
dernier test est positif, votre systeme 
est definitivement infecte et pret a 
bomber a un prochain demarrage. 

Le mode d 'infection du virus, tel 
qu'on pent le determiner avec ResE- 
dii , est le suivant. II installe dans les 
ressources CODE un nouvel £le- 
ment dont le numero est celui du 
precedent augmente de 2. En outre, 
comme c'est la creation la plus re- 
cente, son ID se trouve en debut de 
liste. Lorsqu'on demands Get [nfo... 
sur cette nouvelle ressource, on voit 
que sa taille est de 7026 octets. Ce- 
pendanl, ('application infectee a 
grossi de 7042 octets. II existe done 
16 octets baladeurs dont on ignore 
encore ['emplacement. Si 1'on veri- 
fie le content] du CODE ID=0, on 
s'apercoit qu'au onzieme mot, 
1'lnstruction de branchement nor- 
male a CODE 1D=1 est remplacee 
par un saut a la ressource virale. 
Scores obeit done au meme principe 
de fonctionnement que nVIR: il in- 
stalle une derivation dans les fichiers 
qu'il infecte. A I'interieur du Dos- 
sier Systt?me (cree par vos soins), le 
virus ajoute deux fichiers invisibles: 
Scores (d'ou son nam) et Desktop. 
Note/. Men que ce dernier n'est pas 
a confondre ,\\ix le veritable Desk- 
top qui se trouve toujours au niveau 
du disque et jamais a I'interieur d'un 
dossier. 

Cette detection implique naturelle- 
ment que vous organisiez hicrarehi- 
quement vos fichiers. Si 1'on ouvre 
ces i\cux nouveaux fichiers, on 
trouve dans ehaeun d'eux les res- 
sources suivantes : atpl ID=12H, 
DATA ID- -4001 et INIT 11> 10 . 
Mais ce n'est pas tout! Le virus con- 
tamine le fichier System en lui ino- 
culant trois INlTs: 1D= 6, ID- 10 et 
ID=17. Les fichiers de I'Album et du 
Calepin, dont les icones sont deve- 
nut's generiques, ont eu\ aussi des 
INITs supplemental res: ID= 6 et 
ID= 17 pour le premier et 115= 6 
pour le second. Desormais, tons les 
explosifs sont en place. Au prochain 
demarrage, le systeme sautera en 



declenchant une bombe, generale- 
ment ID= 02. Pour rented ier a 
Scores, le conseil precedemment 
donne est toujours valable: si vous 
possedez des doubles de vos fichiers. 
ne vous cassez pas la tote. Reiniliali- 
sez disquettes ou disque dur infectes 
et reinjectez les documents sains. S'il 
y a rechute, vous saurez au moins 
avec certitude qu'il existe une autre 
source d 'infection. Mais j'espere 
pour vous qu'il ne s'agit pas des sau- 
vegardes elles-memes. Si la repara- 
tion reste la solution incontonrnable, 
procedez comme suit, en respectant 
1'ordre des manipulations. 
Avec un ResEdtt sain place sur une 
disquettc VERROU1LLEE, ouvrez le 
Dossier Systeme. Faites CLEAR sur 
le fichier de ['Album (Scrapbook 
File), sur celui du Calepin (Note Pad 
File), sur le Desktop surnumeraire et 
sur Scores. Ensuite, ouvrez le fichier 
System et faites CLEAR sur les res- 
sources atpl ID= 128, DATA= -4001 
et INIT ID= 10, ID= 17 et ID- 6. Ve- 
rifiez, si aucune des ressources pi- 
rates n'a £te" oubliee et enregistrez 
les modifications quand Rc^h'ili! 
vous le demande. Notez Men que si 
vous effacez des INITs ou d'autres 
ressources portant des numeros ID 
differents, vous detruisez des fichiers 
appartenant a des applications par- 
faitemenl honorables, par exemple 
des tampons d'imprimante. Utilisez 
done ResEdii delicatement, comme 
un scalpel et non comme une ma- 
ehette. Quand vous avez termine 
les operations precedentes, faites en- 
core un petit effort. Prenez Pedii et 
cherchez a I'interieur des applica- 
tions (MacWrite, MacPaint, Excel et 



autres logiciels) si vous trouvez les si- 
gnatures ERIC et/ou VULT. Dans 

l'affirmative, supprimez-les et rem- 
placez-les. 

L'utilitairc de prevention 

Vous venez de voir que I'eradieation 
manuelle des virus n'a rien de 
simple et necessite une certaine 
connaissances des structures d'un 
programme Macintosh et une cer- 
taine competence dans la manipula- 
tion de deux editeurs de ressources. 

Pour vous eviter ce fastidieux travail, 
des logiciels ont ete ecrits, mais, 
comme pour leurs homologues 
pharmaceutiques, leur spectre 
d'action, leur efficacite et leurs effets 
secondaires varient. D'ou 1'utilite 
d'un mini-guide Vidal afin de vous y 
retrouver. "Mieux vaut prevenir 
que guerir", dit le proverbe. Ce prin- 
cipe se verifie meme en matiere in- 
lurmatique, Plutot que de chercher 
difficilement a savoir si le virus est 
deja installe puis essayer encore 
plus malaisement de le deloger, il 
est preferable de l'empdcher 
d'envahir les fichiers, ou du moins, 
de prevenir 1'utilisateur qu'une ac- 
tion anormale se passe. Telle est la 
philosophie de Vaccine. Ce logi- 
ciel, actuellenient disponible en ver- 
sion 1.0 sur le serveur APPLE, est 
une creation de CE Software et est 
entierement gratuit (Freeware pour 
les inities),Il s'agit d'un document 
cdev, dont la taille est de J 1 875 oc- 
tets, et que vous copiez dans votre 
dossier systeme avant de redemar- 
rer pour le rendre operationnel. Pour 
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eclaircir ce point de technique, jc el- 
gnale rnpidement qu'un cdev est un 
fichier qui Be charge tout seul au de- 
marrage (comme une INIT), mais 
qui, au contraire de cette derniere, 
peut ensuite etre ouvert par 
1'utilisateur et enregistrer de nou- 
veaux reglages. Quand s'affiche la 
page de bienvenue, cm le document 
StartUpScreen si vous en avez un, 
vous voyez apparaitre I'icflne d'une 
seringue dans I'angle inferieur 
gauche de l'ecran. C'est le signe que 
Vaccine s'est installe avec succes et 
veille desormais sur la bonne sante 
de vos fichiers. Lorsque le systeme 
vous rend la main, selection nez dans 
le menu Pomme l'accessoire Ta- 
bleau de bord (avec un systeme 4.0 
au minimum). Dans la colonne de 
gauche, vous trouvez une fenetre a 
deroulement comporlant les fichiers 
General, Frappe clavier et Souris 
fournis par Apple, et dont les icones 
se trouvent aussi dans le Dossier 
Systeme, ainsi que d'autres fichiers 
cdev installes par vous. Clique/ sur 
l'icone illustree d'une seringue et 
vous etes prets a configurer Vaccine 
selon vos besoms particuliers. 

Si vous ne vous sentez pas une ame 
de "bidouilleurs", contentez-vous de 
verifier si les cases Turn protection 
on (actlver la protection) et Show 
icon (afficher I'lcdne au demarrage) 
sont cochees. Si tel n'est pas le cas, 
faites-le et redemarrez voire Mac. Si 
une saine curiositc vous incite a 
prendre quelqucs lecons d'anatomie, 
lisez ce qui suit. Le principe de 
Vaccine eonsisle a verifier si des 
changements structurels sont appor- 
tes a I'interieur du systeme ou des fi- 
chiers par creation ou modification 
des ressourees. Le logiciel emet 
alors un ou plusieurs hips, suivant le 
nombre de tentatives d'acces sus- 
pectes, et affiche une fenetre de dia- 
logue pour avertir I'utilisateur et lui 
demander s'il <mtorise le change- 
ment (bouton Granted) ou s'il le re- 
fuse (bouton Denied). Cela impliquc 
naturellement que vous devez des- 
activer Vaccine lorsque vous installez 
des fontes ou des accessoires de bu- 
reau, et lorsque vous utilise/ des ap- 
plications qui ecrivent dans le sys- 
teme, par exempli- les geslionnaires 
de touches de fonctions (FKeys), 
Sin on, bonjour les fausses 
alertes! Vaccine offre de surcroft 
un affich.ige expert (Expert display) 
qui installe en permanence des bou- 
tons de controle dans le coin supe- 
rieur droit de l'ecran et ['option Tou- 
jours compiler les INITs MI'W. 

Arretons-nous sur cette derniere. 
MI'W est un ensemble de program- 
mation du type assembleur diffuse 



par Apple, dont l'editeur de liens 
(linker) empeehe 1'affichage des dia- 
logues de Vaccine . Le logiciel 
semble s'etre plante, alors qu'en rea- 
lite, il attend sileneieusement qu'on 
reponde Y (yes) ou N (no) a ses ques- 
tions. C'est ce qui se passe lorsque la 
case Always compile MPW INITs est 
cochee. Si elle ne l'est pas, les INITs 
du MPW beneficient d'une autorisa- 
tion automatique. C'est le talon 
d'Achille du logiciel et on peut 
s'attendre a ce qu'une nouvelle ge- 
neration de vims exploits la possibili- 
ty. Si vous n'utilisez pas MPW, co- 
chez done la case Always compile 
MPW IN ITs. Vaccine fonctionne 
correctement tant avec le nouveau 
systeme 4.3 qu'avec 1'ancien 4.0. 
Neanmoins, 1'utilitaire manifeste des 
incompatibilites d'humeur avec cer- 
tains autres fichiers INIT ou cdev. 
Ainsi, lorsque FonljDA juggler est 
deja installe, vous ne voyez pas 
l'icone de Vaccine apparaitre au de- 
marrage. Par eontre, ce probleme 
n'existe pas avec SuitCase . Mais il y 
a plus serieux: sous systeme 4.3, si 
vous installez, en plus de FonljDA 
Juggler , des StarttJpScrecns (ecrans 
de demarrage) et des StartUpSounds 
(aecompagnements sonores de de- 
marrage) pilotes par Randomizer , la 
premiere fois que vous appellerez le 
Tableau de bord, il s'ouvrira, avec un 
peu de chance, mais la suivante, 
vous obtiendrez une superbe erreur 
systeme avec un tres bel effet de 
fragmentation de 1'image StartUp- 
Screen, tout cela pour vous rappeler 
que le Mac sait se planter meme 
sans virus. Moralite: avec Vaccine , 
n'abusez pas des INITs et des cdevs. 
Si vous souhaitez lui adjoindre un in- 
stallatcur d'aecessoires, ehoisissez 
SuitCasc , et comme eeunomiseur 
d'eeran (Screensaver), prenez P\/ro! 
(foLirni avec le precedent). Reno nee/ 
a toute autre fantaisie ou du moins, 
proeedez a des tests de fiabililc. 

Les utilitaires specialises de depis- 
tage et d'eradication 

Quand on veut verifier la presence 
d'un virus sans devoir manipuler lui 
editeur de ressourees, ou lorsqu'il 
s'agit d'expulser la sale bete, on em- 



ploie des utilitaires qui realisent plus 
ou moins automatiquement ces ope- 
rations. Les plus rudimentaires sont 
dedies a un type particulier de virus. 
Le principe general est simple: il 
s'agit de rechercher des noms de 
ressourees deja connus ou de detec- 
ter des signatures precises a 
I'interieur des applications. On peut 
predire sans risque que ces utili- 
taires seront frappes d 'obsolescence 
a la prochaine generation virale. 
Mais pour 1'instant, ils presentent 
encore quelque utilite. 

[.'application Vaccination, dont la 
taille est de 3117 octets, se charge de 
peigner les fichiers d'une disquette 
ou d'un disque dur pour detecter la 
presence des ressourees nVIR et 
pour tenter une reparation som- 
maire par suppression pure et 
simple desdites ressourees. II va 
sans dire que les instructions de saut 
ecrites par le virus a I'interieur de 
vos fichiers ne sont pas modifiees. 
En d'autres termes, le virus est ex- 
pulse, mais les degats commis sub- 
sistent. Souveiuv.-vous de cela el ne 
vous attendez pas a des miracles. 
Contre le virus Scores , il existe deux 
utilitaires de detection et de "repa- 
ration": Ferret et Killscores. Tous 
deux exa milieu I un volume (dis- 
quette ou disque dur) en son entier 
et sont gratuits. lerrel fait 15086 oc- 
tets en version 1.0 et Killscores 
26761. Leur fiabilite n'est pas excel- 
lente. lis bombent facilemenl avec 
le systeme 4.0 et avec certains utili- 
taires du Domaine Public. 

L'experience a ete faite <\vcc TabU- 
tii , TabExpand et d'autres utilitaires 
de texte. Si lerrcl pa rait fonction- 
ner convenablement avec le systeme 
4.3, Killscores peche par un certain 
manque de finition. Avec le systeme 
4.0, l'ecran d'accueil qui deroule les 
informations declenche une bombe 
avant la fin du message. Avec le sys- 
teme 4.3, eet Inconvenient disparalt, 
mais la case de fermeture de la fe- 
netre est inoperante: il faut choisir 
Quit dans le menu Pile. En outre, la 
fenetre de dialogue invite a choisir 
un fichier ou dossier precis, alors 
qu'en realite, I'examen porte d'office 
sur le volume entier. En conclusion, 






File: li ation 

Status: Resource nUIR' 2 not found. File 
is not infected or cannot be repaired. 
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les utilitaires specialist's so revelent 
decevants a 1'usage, et da vantage 
propres a susciter d'artifieielles in- 
quietudes qu'a rernedier aux ve'ri- 
tables problemes. C'est pourquoi Ies 
utilitaires polyvalents sunt de loin 
preferables. 

Les utilitaires polyvalents 

Ceux-ci constituent une sorte de 
deuxieine generation par rapport 
aux precedents. Les choses vont vitc 
en "microbioinformatique"! lis veri- 
fient non seulement le type des res- 
sources, mais aussi leur nom, leur 
ID et leur taille. Comme chaque cri- 
tere est parametrable, l'utilisateur 
pout af finer la recherche en function 
de son cas particulier, et surtout dis- 
poser d'un utilitaire qui ne sera plus 
automatiquement depasse si jamais 
une nouvelle race de virus emerge 
avec des caraeteristiques nouvelles. 
L'inconvenient, naturellement, est 
qu'il taut savoir ce qu'on cherche. En 
outre, la "reparation" procede tou- 
jours par suppression brutale du 
virus. Vos applications contamineVs 
devront etre reconstruites manuelle- 
ment ou, mieux, remplacees. Le 
moins perfectionne des deux utili- 
taires polyvalents disponibles en 
France est RezSearch, qui fait 26653 
octets en version 1.0b. II recherche 
dans un volume donne le type, le 
nurnero ID et la taille d'une res- 
source. Les resultats du depistage 
peuvent etre enregistres dans un do- 
cument an format "Texteseul". Le 
programme est gratuit emploi 
semble fiable. 

Mais le meilleur de sa categorie est 
incontestablement Virus Detective, 
dont La taille est de 22H79 octets en 
version 1.2. II s'agit d'un accessoire 
de bureau installe en menu Pomme. 
II est Shareware, e'est-a-dire que son 
concepteur vous demande une mo- 
dique retribution au cas ou vous uti- 
lise/ regulierement son produit. 
Cette somme est nettement moins 
importante que celle que vous aurie/. 
a payer pour un logiciel diffuse dans 
le commerce, et de plus encourage 
I'auteur a creer de nouveaux pro- 
grammes. 

VirusDetective est 1 'utilitaire dont 

['emploi est le moins simple; en re- 
vanche, le nombre des possibilities 
de parametrage en fait un outil lies 
souple. Vous DOUVez definir le type 
de la ressource, son nom, son ID, sa 
taille precise ou a I'interieur d'une 
fourchette. II va jiisqu'ii examiner les 
signatures que constituent le File- 
type et le Creator d'une application. 



RezSearch Configuration 



H Search Entire Disk 
[X] Results to Screen 

Resource Type: 
Resource ID#: 
Resource Size: 



□ Uerbose Mode 

□ Results to File 



(blank ID and/or Size matches all) 



OK 



Cancel 



Pour couronner le tout, les resultats 
sont enregistres dans un fichier para- 
me-trable lui aussi. Les utilisateurs 
francais apprecieront le choix qu'il 
offre entre les formats MacWrite et 
Word. C'est vraimenl de la belle ou- 
vrage, tout a fait comparable au ni- 
veau de finition d'un produit com- 
mercial. 

A fin que vous rendie/, compte des 
capacites de VirusDcicciivc , exami- 
nons ensemble comment I'utiliser 
pour depister les deux virus presen- 
ted au d£but de cet article. Si vous 
cherche/ rtVIR, vous emploieiv/. les 
syntaxes suivantes: nVIR any (toute 
ressource de type nVIR), nVIR ID 1 
(ressource nVIR dont le numero 
d 'identification est 1), ou encore 
nVIR Range 1 7 (ressource nVIR 
dont 1'ID est superieur ou egal a 1 et 
inferieur ou egal a 7). Si vous cher- 
che/ Scores , vous taperez CODE 
Size 7026 (ressource CODE dont la 



taille est de 7026 octets), atpl ID 128, 
etc. Malgre leurs qualites, les logi- 
ciels polyvalents ne permettent pas 
de detecter les virus dont on ignore 
les specifications. C'est la specialite 
d'un quatrieme groupe d'utilitaires, 
qu'on pent qualifier, mais avec pru- 
dence, d'inlelligenls. 

Les utilitaires "intelligents" 

Ces derniers incluent les fonctionna- 
lites precedentes, mais essayent au 
surplus de tenir le lourd pari de de- 
tecter un virus dont la physionomie 
est encore totalement inconnue. 
Comment est-ce possible? En culmi- 
nant la presence de ressources a 
hauts risques (INIT, cdev et RDEV), 
celle de branchements suspects et 
celle de non conformite avec les 
regies de programmation etablies 
par Apple. Le principe est seduisant, 
son resullat decevant. Nous allons 



The resources UirusDetecliue'" looks tor may be modified beloui. The 
strings haue (he following sijntan which must be followed EHRCTEY: 

TTTT Rog - matches any resource of type TTTT 

TTTT ID 1 - matches resource 10 l of type TTTT 

TTTT Name N - matches resource named N of type I7TT 

TTTT Size S - matches resource of type TTTT and size ■ 5 

TTTT Range f H - matches resource of Type TTTT and size >= L t> <= H 

TTTT Filetype - matches file with file type TTTT (Not included in 

CCCC Creator - matches file mith creator CTTC uirus file counll 

turienl search slrinqs: _ ,.._ _ 

Examples: ni.HK Kny 




itl'llt lliii| 
INIT Nome mi 
CODE Size 7026 


ll 


COOT Size 7026 
fc. INIT Name HR 


(ll«Btm<e m\ ( OK 360 J 
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voir pourquoi. Prenons l'exemple d' 
Interferon, line application de 
26344 octets distribute en Shareware 

et dotee de 4 functions. Les 4 pre- 
mieres, d£sormais classiques, re- 

cherchent le nom ou la signature de 
ressources virales connues. A cela 
s'ajoutent S fonctions de tec trices 
d'nnomalies: 2 qui verifient les bran- 
chements suspects a la derniere res- 
source CODE (ce que fait le virus 
Scores ) et 3 autres qui examinent le 
type des ressources et leur localisa- 
tion. 

L'inconvenient majeur saute aux 
yeux: 1'utilitaire suspeete toute appli- 
cation non strictement conforme aux 
regies elaborees par Apple. En pre- 
miere ligne ftgurent les applications 
protegees, dont 1'article pnru dans 
Muk Fun n°8 a deja denonce 
['inadmissible fragilite. Ensuite, 
Interferon n'apprecie gufere les logi- 
ciels qui manipulent des INITs, 
comme Randomizer, dont le role est 
de choisir au hasard un StartUp- 
Screen associe a un StartUpSound. 11 
ne supports pas mieux cellos qui 
modifient les fichiers du systeme, 
comme Localizer Plus, qui reeerit la 
table d'affectation des touches du 
clavier. Voici ce que cela 
donne: Un volume parfaitement 
sterile peut done etre considcrc 
comme contamine. Puisque les ap- 
plications qui obeissent integrale- 
ment au cahier des charges d 'Apple 
sunt minoritaires, le contenu de vos 
disquettes et disques durs declen- 
chera ordinairement une alerte avec 
Interferon . Par bonheur, le logiciel 
laisse a 1'utilisateur le choix entre 
une simple recherche et une eradi- 
cation du virus. Mais le fond du pro- 
bleme reste inchange: 1'existence du 
virus est deja un motif d'inquietude 
suffisant et voila qu'on nous gratifie 
de fausses alertes virales! 

Un tel outil n'est pas a mettre entre 
Unites les mains. Profanes et per- 
sonnes cardiaques s'abstenir. 

I 'application Virus Rx, actuelle- 
ment distribute gratuitement par le 
serveur APPLE dans sa version 1.0A2 
(41151 octets), se contentc d'un tra- 
vail de depistage, mais presente les 
tnemes vices fondamentaux qu' 
Interferon . L'ecran d'aide signale 
d'ailleurs expressement que des ti- 



Interferon 2.0 - Version oi 24 April 88 - ol 988 Robert Woodhead, Inc. - AU Rights Reserved 

WARNING Many changes and improvements READ THE DOCUMENTATION' 

It Interferon helps you cut, please consider making a donation to "The Vision Fund " . Thia ia 
a fund that gets ail my shareware donations, and we are saving up the money to buy special 
hardware loir a visually impaired computerist. Send your huge cheques to: 

The Vision Fund, C/O Robert Woodhead, Inc.. 1 Spruce Lane. Ithaca NY 14850 

Interferon currently locates and destroys the following viral infections 

(001) 04/06/88 "SCORES" Virus (now gets Desktop- lils) 

(002) 04/07/88 "nVIR" Virus 

(003) 04/07/88 WARNING: VULT or ERIC resources or signature (referenced by SCORES virus) 

(004) 04/0?/:^; ■SNEAK" Virus: Common system folder files turned into INlfs 

(005) 04/11/83 ANOMALY Code Resource ID*0 jumps to last Code resource (with gap) 

(006) 04/11/83 ANOMALY Code Resource IIi*0 jumps to last Code resource (no gap) 

(007) 04/20/88 ANOMALY CODE Resource found in non-APPL file 
(003) 04/20/33 ANOMALY INIT Resource found in non-INIT or ESYS file 
(009) 04/20/88 ANOMALY cdev Resource found m nc-n-cdev or ZSYS file 
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Checking for viral infections on volume "Dur Dur 20" 

ANOMALY: Type 00? anomaly detected in file: 
Bur Dur 20: 
4e DIM: 
Utilitaires 4D 3.1: 
Mailing 4 D/V+ 1.01 

ANOMALY: Type 008 anomaly detected in file: 
Dur Dur 20: 
Pomme: 
BigBen 

ANOMALY: Type 007 anomaly detected in file: 
Dur Dur 20: 
Systems 4.0: 
Finder 

ANOMALY: Type 008 anomaly detected in file: 
Dur Dur 20: 
Systeme 4.0: 
Randomiser 

ANOMALY: Type 008 anomaly detected in file: 
Dur Dur 20: 
Systeme Util: 
Localiser Plus FR 

ALERT! Volume "Dur Dur 20" may be infected! 
Consult listing to determine the details. 

Checking for viral infections on volume "S.O.S VIRUS" 

Interferon run completed! 

363 files were scanned, of which 224 had resource forks. 
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chiers declares corrompus peuvent 
se reveler sains, de m§me que 
['absence d'alerte ne signifie pas 
grand -chose. Maniere elegante 
d'avouer la pietre efficacite de 
l'utilitaire! Le plus curieux est qu'une 
fausse alerte concernant un volume 
identique est declenchee pour des 
raisons sensiblement differentes, par 
Virus Rx et par Interferon , comme 
le montre ce listing, a comparer avec 
le precedent:Cette enorme diffe- 
rence dans la ration de proceder au 
diagnostic souligne le flottement qui 
existe en ce moment dans les me- 
thodes de depistage. Voila pourquoi 
seul un utilisateur averti peut tirer 
parti de ces deux logiciels. La facon 
dont Virus Rx precede est la sui- 
vante, II commence par lister les fi- 
chiers de demarrage, en attirant 
['attention de I'utilisateur sur leur 
existence. Puis il signale les fichiers 
invisibles, technique employee no* 
tammenl par Scores, et les INITs 
dont Les numeros sont sensibtes. 
Voila pourquoi Vaccine dee I cliche 

nn avertissement: cet utilitaire oc- 
cupe un 11) egalement utilise par 
Scores . Knsuite, i! repertorie les ap- 
plications dont les dales de creation 
presenlenl une anomalie. Enfin, et 
tela conslitne sa force et sa fai- 
hlesse, il suspecle tOUte application 
qui modilie le System, le Finder et 
qui dupHque des fichiers. Tel est le 

cis de macTracks Installer, nn gins 

saire parametrable p^r FKeys et qui 
dissemble parlonl scs Tracks lilt's. 
Hans U- domaine des fichiers sys- 
teme, le detecteur parlait n'e\isle 
pas, or les moyens de manipulation 
sont identiques alors que le but vise, 

aide on prejudice oclroyes a 
I'utilisateur, est different. Un pareil 
examen depasse largemenl les ca- 
pacities des outils Lnrormatiques ac- 

tuels. 

Que choisir? 

De ce tour dhori/on, il ressort qu'en 
informatique comme en medecine, 
la panaeee n'existe pas. A 1'instar 
des medicaments, les utilitaires-enu- 
meres ci-dessus out leur champ 
d'aclion specifique, leurs avantages 
et leurs ineonvenients. Enfin, il taut 
avoir a I esprit qu'un usage incon- 
seient on inadapto peut avoir de lu- 
nestes consequences. Si vous sou- 
haitez une prevention, adopte/ 
Vaccine . l.orsqu'un examen appro- 
fondi s'avere necessaire, prenez Vu 
rusDetective. Si vous possedez des 
competences techniques un peu 
plus avancees, ou si vous aimez les 
emotions fortes, vous avez le choix 
entre Interferon et Virus Rx . 
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Eradication des virus 

Comme je I'ai explique plus haut, il 
n'existe aueune solution satisfai- 
sante, car la suppression des res- 
sources virales ne s'accompagne pas 
dune reparation des applications 
endommngecs. II laul proceder ma- 
im el lenient, a vos risques et pe- 
rils. Si les objets conlaminos sont 
des fichiers systeme on des applica- 
tions dont VOUS possedtv. des copies 
inlaclcs, ne VOUS donnez pas la peine 
d'employer les remedes expliqutfs 
dans ce( article. Vous aure/ plus vite 
fait de les supprimer el de les rein- 
staller. Mais n'oublie/ pas que les 
virus cherchenl a se repaiulre des 
que possible. I'mcedc/ avec unv dis- 

quette systeme saine dont le loquel 
esl \ TKROUILLli pour ^initialiser 
la disquette vu le disque dur mal- 
ade. Le probleme est plus delicat 

avec les documents que vous ave/ 
crees, car vous perdez tout le travail 
etleclue depuis la derniere sauve- 
garde saine. S'ils sont sur disque dur, 
transferez-les sur une disquette de 

quarantaine avanl de nettoyer ce 
dernier. S'ils sont sur disquette, utili- 
sez celle-ci pour La quarantaine en 
supprimant tout le reste. Vous redc- 
marrerez avec une disquette ver- 
rouillee comportant un syst6me et 
Les utilitaires adequats pour tenter 
une reparation. Quand vous estime- 
rez cette derniere achevee, installez 
sur l,i disquette ainvalescente tin 
systeme reduit puis redemarrez la 
plusieurs fois apres avoir procede a 
de multiples operations d'ecriture et 
d'enregistrement. Ensuite, examinez- 
la de nouveau a partir de la dis- 
quette de demarrage saine. Si le 
virus n'est pas reapparu, vous pou- 
vez vous considerer comme sauves, 
mais s'il y a reehute, faites definitive- 
ment le sacrifice des documents in- 
fectes. 



L'art de la sauvegarde 

Le risque de perte de dtmnees esl, 
sinon annule, du moins lortemenl 

reduit torsqu'on sauvegarde syste^na- 
tiquement son travail. Cependant, le 
eonseil n'est pas loujour.s suivi sous 
[influence d'une paresse qui confine 
a L'imprudence. L'affaire des virus 

aura, ^u moins peut-on lesperer, la 
consequence positive de remettre en 
memoire les regies elemenlaires de 
seeurite. En ce qui me concerne, 
('Utilise une met hod e person nelle 

dont |e suis pluiot satisfait car elle a 

fait ses preuves dans des situations 

critiques. II s'agissait non pas de 

Virus, mais de la sauvegarde de do- 
cuments endommages par de 
fausses manoeuvres. Les principes 
en gont les suivanls. Si vous posse- 
dez Un disque dur, faites une sauve- 
garde TOTALE hebdomadaire. Pa- 

rallelemenl, ,i la fin de chaque 
session de travail, sauvegarde/ vos 
documents par transfer! d'icones sni- 
des disquettes thematiques. par 

exemple, vous disposerez d'archives 

Texte, Dessin, Tableau, etc. Si vous 
perdez la memoire en eourant, 
comme moi, aidez-vous dun temoin 
en papier que vous glissez dans la 
pochette transparenle des dis- 
L|uelles, on tl'im moyen simi- 
laire. Cette lac,on de proceder com 
porte plusieurs avantages. Les 
methodes de sauvegarde etant diffe- 
renles, vous vous mettfiZ a I'abri 
d'une delaillance de voire logiciel de 
BackUp, chose possible si vous 
1'emplove/ a la fois pour les sauve- 
gardes totales et partielles. En outre, 

dans L'hypothese d'une recopie d'un 
document endommage, vous recu- 
perez votre travail de la demi- 
joumee ou de la journee precedente 
et, au pire, de la derniere quinzaine. 
C 'esl mieux que ['absence de reserve 
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a laquelle s'expose celui qui sauve- 
garde mai on pas du tout. Si vous 
travailkv. uniquement sur dis- 
quettes, vous aurez un double jeu de 
la disquette courante et un double 
jeu thematique, suivant lea memes 
principes. 

Comment sc procurer les 
utilitaires anti-virus? 

Tous les logiciels du Domaine Pu- 
blic testes dans cet articles ont et£ 
telecharges a partir des serveurs Vi- 
deotex 36.14 APPLE et 36.14 BUS- 
TER. Pour ce faire, il vous faut soit 
un minitel avec un cordon serie a 
raccorder au Mac, soit un modem 
avec un emulateur minitel (par 



exemple Mac Tell). II vous faut aussi 
un utilitaire de conversion des fi- 
ehiers transitant via le minitel, et qui 
est BCP 1.2 . Enfin, 1'utilitairc de de- 
compactage Stuffit vous permet de 
recuperer de longs documents en- 
voyes sous forme compactee, et qui 
sont reconnaissables au suffixe .SIT). 
Pour votre commodite, ces deux der- 
niers utilitaires, ainsi que les logiciels 
de lutte anti-virus, Freeware et Sha- 
reware, sont disponibles sur la dis- 
quette du mois que vous propose 
Muk Fan . 



Signalons que vous pouvez aussi les 
telecharger sur CalvaCom. 



Antivirus 1.0 

Est une application du domaine 

public distribute par P- 
Ingenierie, pour traiter les dis- 
ques contre le virus nVir. Cette 
application necessite un Macin- 
tosh equipe des ROM 128K ou 

plus. 
Application mise au point par : 



Philippe Cloche, Imad Alossta/, 
et Philippe Coanet 

IMngenierie 10, rue Mercceur 
7501 1 Paris. 



{'excellence 
dela 




P.A.O. 



Conception et realisation graphique, sous-traitance de solsle, 
Consell en P.A.O. , developpement base de donnees sur 4 D. 
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Rejoignez l'equipe de 
MAK FAN 



Si MAK FAN vous seduit par son serieux, son 
independance cl la qualite do st's articles, 
nous vous proposons, si vous le desirez, de par- 
ticiper a notre revue, ceci par le biais de 
deux possibilites: 

- Des articles sur un logiciel que vous maitri- 
sez parfaitement , grace a une utilisation pro- 
fessionelle intensive. 

- L'essai de nouveaux logiciels qui entrent 
dans la categorie de ceux que vous utilisez. 

Si vous souhaitez rejoindre notre equipe, 
venez nous rendre visite a notre stand S3-8 a 
Apple-Expo, ou ecrivez-nous: 



MAK FAN 
BP 33, 94471 Boissy cedex. 



Pour votre Publicite 
dans 



MAK FAN 

contactez ; 
Mme NajibaALJ 

(1) 45 99 02 10 



Bulletin d'abonnement 

a retoumer a : MARFAN BP 33, 94471-BOISSY cedex France 

I Oui, je m'abonnc pour 8 Humerus a partir du rtumero N" an prix de 2611 FF 

■in lieu de 280 FF (France metropolitaine el DOM-TOM , expedition par vole de surface) 

AUTRES PAYS : 360 FF (Frais de port inclus) paiement par Mandat Poste International. 
Pour les DOM-TOM si envoi par avion demand* abonnemerrt 361) FF. 

VENTE AUNUMERO: 

N" 1 I N" 2 "• 30 FF 1'un (40 FF pour I'Etranger). 
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Pour I'Etranger reglement par Mandat Poste International uniquement. 

Nom : Prenom Fonction 

Adresse : 

Code postal : VILLE it 

Pays : 

Bulletin a recopier ou a photocopier. Ecrire en caracteres d'imprimerie s. v. p. 
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Julia & Mandelbrot. 



Coprocesseur MC68881 
Couleur sur Mac II, 
Multifinder. 



Dominique BERNARDl 



ai deja parte d'ensembies 
fractals dans les colonnes 
de MAK FAN, et rapped 
que Benoit Mandelbrot £t- 
ait 1'inventeur du terme. II 
a aussi donn£ son nom a 
un sous-ensemble du plan C des 
nombres complexes. Reprenant ties 
travaux anterieurs de Julia et de Fa- 
tou, qui etaient plus ou moins tom- 
bes dans I'oubH, il s'interessa aux it- 
erations de la fonction; z -> z 2 + c, 



bornee. On definit 



Plus precisement, soil z et c deux Ha K c comme 1'ensemble des points 
nombres complexes. On definit par de departs ain P"" r l*s^wels la suite 



recurrence une suite de nombres 
complexes de la maniere suivante: 
Zj =z 2 +c; k 2 =^ 2 +c; ... z n + 1 - 
z n 2 +c pour tout n. Cette suite de- 
pend done de son point de depart zq 



de point de depart Zg et de par- 
ametre c est bornee. On definit 
1'ensemble de Mandelbrot M 
comme 1'ensemble des c de C tels 
que la suite de point de depart et 
de parametre c est bornee; en 
d'autres termes, cest dans M si et 
seulemerit si est dans K c . 



J'al vu des archipels sideraux 

et des Ues 

Dont les cieux deiirants sont 

ouverts au vogueur. 

A. RIMBAUD, 

Le Bateau tvre. 



-WF 
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.En pratique, on se limite aux c de 
module inferieur a 2 (on rappelle 
que le module d'un nombre com- 
plexe : x + i y est la racine earree 
de x 2 + y 2 ). Dans ce cas, il est facile 
de voir que la suite tend vers l'infini 
si e-t settlement si elle prend au 
moins une valeur de module supe- 
rieur ou egal a 2, L'idee est alors de 
compter le nombre d'iterations qu'il 
faut pour atteindre un tel point, et 
d'attribuer une couleur en fonction 
du nombre obtenu. Comme il n'est 
pas possible de faire une infinite 
d'iterations, on se fixe une limite 
max. Si au bout de max iterations le 
point n'est toujours pas sorti du 
disque de centre et de rayon 2, le 
point est repute appartenir a 
1'ensemblc de Mandelbrot ou de Ju- 
lia, selon le cas, et colorie en noir. 

On peut montrer que c est dans M 
si et seulement si K c est connexe. Si 
vous voule/ connaitre la demonstra- 
tion (ou meme la signification) de ce 
resultat, ainsi que beaucoup d'autres 
explications, consulted le livre "The 
Beauty of Fractals" de H.-O. 1'citgen 
et P.fl. Richter, paru en 1986 chez 
Springer-Verlag. Outre de longs 
developpements mathematiques, ce 
livre contient de nombreuses photos 
couleurs semblables a celles de 
MAK FAN, mais obtenues avec du 
materiel contain trente fois plus 
qu'un Mac II couleur... 

Particularity de ce programme 
(68881, couleur, Multifinder) 

Mon but ctait d'ecrirc un pro- 
gramme me permettant de produirc 
moi-meme les images de ce livre, et 
d'autres, evidemment. |e voulais 
aussi explorer les possibilitcs offertes 
par trois acquisitions relativement 
recentes du Macintosh: le coproces- 
seur arithmetique, Color QuickDraw 
et Multifinder. II y a au moins dix 
antics programmes d'exploration de 
1'ensemble de Mandelbrot, et un 
pour les ensembles de Julia, aucun 
ne Iraitant les deux cas .i l.i iois, ce 
qui est Strange vu la similarity des 
calculs. 

L'utilite de Color QuickDraw en 
cette circonstance est claire. Les 
deux autres points meritent 
quelques eclaireissements. II est sou- 
haitable que soient possibles simul- 
tanemenl de grands rapports 
dagrandisscment (de I'ordre de III' 1 , 
par exemple) et des nombres maxi- 
mum d'iterations Ires eleves (de 
I'ordre de 20000) pour pouvoir 
"plonger" tres profond dans ['image. 
Les agrandissements desires impo- 
sent 1'emploi de reels (par opposition 



aux integer ou longint). Le Macin- 
tosh dispose d'un systeme de traite- 
ment des reels en virgule flottante 
tres seduisant sur le papier: SANE 
(Standard Apple Numeric Environ- 
ment). Malheureusement, meme sur 
Mac II, qui est muni d'un coproces- 
seur arithmetique performant, le 
MC68881, SANE est d'une lenteur 
desespSrante. Considerons la fonc- 
tion suivante: 

FUNCTION Iterations (x, y, a, b: ex- 
tended; max: integer): integer; 

VAR i: integer; 
BEGIN 
FOR i := TO max - I DO BEGIN 
x2 := Sqr(x); 
y2 := Sqr(y); 

IF x2 + y2 > 4.0 THEN BEGIN 
Iterations := i; 
EXIT(lterations) 
END; 

y := x * y * 2.0 + b; 
x := x2 - y2 + a 
END; 

Iterations := max 
END; 

Le temps d'execution d'une telle 
fonction est evidemment proportion- 
nel a son resultat. Si ce resultat est 
de 1000, ce temps vaut 70 ticks si la 
fonction est compilee "sans precau- 
tion", e'est-a-dire en appelant SANE, 
3.2 ticks si elle est compilee avec 
loption -mc68881 et 2.3 ticks si elle 
est recodee et optimisee en assem- 
bleur 68881. Par exemple, le calcu] 
d'une image de 300000 points pour 
laquelle le nombre moyen 
d'iterations serait 1000 prendrait en- 
viron 101) heures, 4 heures et 3 
heures respectivement (a ce propos, 
certains programmes n'utilisent 
qu'une partie, voire une tres petite 
parte de I'ecran: on gagne du temps 
comme on peut...). 

Enfin, il n'est pas du lout agreable 
d'avoir une machine bloquee pen- 
dant des heures pour calculer une 
image. Si c ctait le cas, je ne me scr- 
virais pas du programme tres sou- 
vent. Si, par contre, le programme 
est capable de calculer en niche de 
fond, je peux, par exemple, ecrire 
cet article ou telecharger le dernier 
hit de la bibliotheque Macintosh da 

CalvaCom, ou les deux, tout en cal- 
culant une image qui agremente le 
fond de mon bureau. 

Pourquoi MPW ? 

Compte tenu de ces objectifs, quel 

systeme de developpement choisir ? 
Les lecteurs ties anciens rtumeros de 
MAK FAN se souviennent peut-etre 
de ma chaude recommandation de 
l.ightspeed Pascal. J'avais meme 
traits de masochistes ceux qui utili- 
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salent MPW... je vais done tenter de 
justifier mon choix de ce systeme de 
developpement. D'abord, LSI' n'a 
ite mis a jour pour le Mac II que 
tres tardivement, et n'est toujours 
pas compatible avec Multifinder. II 
ne permet pas de generer de code 
68881 oti 68020, A I'oppose, la conviv- 
ialite de MPW s'est grandement 
amcliorce depuis la version 2.0. De 
plus, depuis l'avenement de Multi- 
finder, il est possible de lancer le 
programme que Ton vient de creer 
sans quitter MPW: e'est done le seul 
compilateur Pascal sur Mac II qui 
permet de tester facilement un pro- 
gramme destine k tourner aussi sous 
Multifinder. Reste encore un avan- 
tage & LSP, les outils de mise au 
point: pour I'instant, aucun autre 
systeme ne sen approche. Un de- 
bugger symbolique est annonce 
pour la version 3.0 de MPW, qui 
devrait sortir vers la fin de l'annee. 
En attendant, je continue a recom- 
mander LSP aux debutants, k ceux 
qui passent moins d'une heure par 
jour en moyenne a programmer, 
ainsi qu'a ceux qui n'ont pas de 
disque dur, ou pas assez de me- 
moire pour Multifinder... encore 
pas mal de monde, au total. 

MC68881 

La routine centrale, pratiquement 
identique a la fonction Iterations ci- 
tee plus haul est trts simple et re- 
presente jusqu'a 99% du temps 
d'execution du programme. C'est un 
cas typique oil ['optimisation par re- 
codage en assembleur s'impose. Le 
systeme MPW comporte un assem- 
bleur pour les processeurs 68000 
68021), 68881 el 68851. De plus, cet 
assembleur est le plus evolue que 
j'ai jamais vu, permettant entre au- 
tres de definir des structures RE- 
CORD analogues a celles du Pascal, 
et de construire autumaliqiicmcnl 
des offsets symboliques pour les 
Stack Frames. 

Quand j'ai cent la routine en ques- 
tion, je ne eonnaissais aucun des 
mnemoniques du 68881. J'ai done 
code la routine en Pascal, compile 
avec 1'oplion -mc68881 el disassem- 
ble le resultat grace a l'outil Dum- 
pObj, le tout sans sortir de MPW. 
Apres optimisation, il ne restait plus 
qu'a reassembler... 

Le programme etant destine a 
tourner sur Mac II, j'avais interet .i 
utiliser partout les options -mc.68020 
el -mc6888l. Cette derniere chan- 
geant la place attribute aux extend- 
ed, il etait meme indispensable de 
l'utiliser dans ton les les units du pro- 
gramme qui referenda ion I des reels. 
Le probleme esl que tout ee qui est 
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prevu par MPW dans Le cas 
d'execution de code 68020 sur un 
Mac plus ou SE est une instruction 
TRAPF au debut du programmme, 
en d'autres termes, une bombe; ce 
comportement n'est pas tres amical 
pour une application civilisee. II taut 
done compiler le programme princi- 
pal sans ces options et bien s'assurer 
que dans le cas ou le programme ne 
tournerait pas sur une machine ade- 
quate, 1'utilisateur est renvoye poli- 
ment a ses etudes. Au fait, une ma- 
chine adequate possede Color 
Quickdraw et un coprocesseur, ce 
n'est pas foreement un Mac li. 

Palette manager. 

Le Macintosh se dotant enfin de la 
couleur, Apple ne pouvait pas se 
contenter de faire cornme tout le 
monde, IBM par exemple, en propo- 
sant un modele simple d'utilisalion 
de la couleur, avec une palette de 
256 couleurs choisies parmi 16 mi- 
lions que chaque programme aurait 
le droit de modifier comme bon lui 
semble. Ceci n'est acceptable que 
dans un environnement oil un seul 
programme tourne, ou, du moins, 
un seul programme utilise vraiment 
la couleur. Par contre, pour mainte- 
nir une certaine coherence des cou- 
leurs sous Multifinder, e'est insuffi- 
sant. De toutes facpns, ce modele 
manque de souplesse, meme pour 
un seul programme: il faut gerer soi- 
meme un nombre fixe de couleurs, 
et si on en desire plus qu'il n'y en a 
pour plusieurs fenetres differentes, 
la jonglerie nccessairc devient peni- 
ble. C'est pourtant, semble-t-il, le 
modele .qui avait etc adople au de- 
but de la conception du Mac Cou- 
leur, et c'est celui supporte par le 
Color Manager. 

II semble que, comme pour le Re- 
source Manager, une des grandes 
idees du Mac ait ete introduile rekv 
tivement tardivement: je veux parler 
du Palette Manager. L'idee est en 
gros la suivante: c'est le systeme qui 
gere la table des couleurs de la carte 
Video, et pas le programme. Chaque 
fenetre indique de quelle couleurs 
precises elle a besoin. Quand une 
fenetre est au premier plan, le Pal- 
ette Manager essaie de lui attribuer 
les couleurs qu'elle demande. Pour 
les autres fenetres, soit de nouvelles 
couleurs sont attributes, soit on les 
colorie avec celles de la premiere, si 
elles sont assez proches de celles-d, 
On peut preciser la tolerance que 
1'on admet dans la distorsion des 
couleurs, on peut reserver des cou- 
leurs pour son usage personnel, etc. 
Tout cela est tres complique et tres 
astucieux, a mon sens. Pour mon 



programme, j'ai done utilise le Pal- 
ette Manager d'autant que celui-ci 
propose un moyen simple d'animer 
les couleurs d'une fenetre, e'est-a- 
dire de les faire defiler sans retracer 
les images, donnant des effets de 
chatoiement qui peuvent etre magni- 
fiques. 

Malheureusement, je n'ai pas 
reussi a faire marcher correctement 
cette animation en utilisant le Pal- 
ette Manager. Je pense qu'il y a en- 
core des bugs dans la version conte- 
nue dans le systeme 4.3 Francois; ces 
bugs sont toujours presents dans le 
Systeme 6.0 americain. Autre expli- 
cation: je n'ai rien compris au chapi- 
tre Palette Manager dlnside Macin- 
tosh V. Quoi qu'il en soit, pour mon 
animation, j'ai done eu recours au 
Color Manager pour lire toutes les 
couleurs presentes dans la carte vid- 
eo, animer, restaurer toutes les cou- 
leurs. L'cnnui est qu'au cours de 
I'animation, si Ton appelle certaines 
trappes, le Palette Manager entre en 
scene et modifie les couleurs der- 
riere notre dos. 11 faut done eviter 
ces trappes, ce qui vous explique 
pourquoi je n'appelle pas ModalDia- 
log, ni meme GetNextEvent dans ma 
routine Animer: tout le dialogue 
modal est simule a l'aide d'appels 
aux fonction Button, PtlnRect, Inver- 
tRoundRect, etc. 

Multifinder 

II y <i plusieurs raisons pour vouloir 
tirer parti de Multifinder, je 
m'interesse specialement au cas 
d'un programme qui risque de tourn- 
er tres longtemps sans produire de 
resultat interessant. 11 est alors ne- 
cessaire qu'il s'execute en tache de 
fond, et se fasse le plus discret possi- 
ble pendant ce temps. II y a un moy- 
en relativement simple de modifier 
un tel programme ecrit pour travaill- 
er tout seul de facon a ce qu'il tra- 
vaille en tache de fond: a chaque en- 
droit ou Ton passe souvent, appeler 
GetNextEvent; si le resultat est true, 
traiter 1'evenement; si cet appel a 
lieu trop souvent, le programme 
peut etre ralenti. 11 suffit alors de ve- 
riticr qu'au moins 8 ticks (par exem- 
ple) se sont deja ecoules depuis le 
dernier appel. Au passage, notons 
qu'il ne faut pas utiliser TickCount 
puisque on desire eviter le temps 
perdu par decodage des trappes. 
Apres la declaration 
TYPE 

Longl'tr = A longint; 
1'expression LongPtr($16A) A rem- 
place avantageusement TickCount. 
Les programmeurs C peuvent ecrire 
tfdefine TickCount (*(Uong *>Qxl6a)) 
II y a peu de chances que cette me- 



thode soit invalidee par les pro- 
chains syst£mes, puisque la globale 
systeme Ticks est documentee par 
Apple et que tout les programmes 
ecrits en assembleur font cela. II suf- 
fit maintenant de se declarer can- 
Background pour pouvoir tourner en 
tache de fond. La declaration multi- 
FinderAware est moins importante 
dans ce cas, elle sert surtout a acce- 
lerer les "major switches" ou 
['application passe du statut actif a 
celui de tache de fond et reciproque- 
ment. II faut alors convertir le 
presse-papier et activer/desactiver 
soi-meme les fenetres du niveau de 
I'application, y compris celles des ac- 
cessoires de bureau qui en feraient 
partie (ouverts avec la touche option 
enfoncee, sous Multifinder 1.0, les 
accessoires font partie du niveau ac- 
tif et non de celui de la pseudo- 
application "accessoires" ou "DA 
Handler"). 

Mode d'emploi 

Le programme demarre lorsque 1'on 
double-clique sur un de ses fichiers, 
ou sur le programme lui-meme. 
Dans ce dernier cas, il s'ouvre sur 
une image de l'ensemble de Man- 
delbrot complet, image qu'il est pos- 
sible de recharger a tout instant par 
la comrnande Recharger. Oil cette 
image est-elle stockee ? Une solu- 
tion elegante a ce probleme qui se 
pose a beaucoup d'applications est 
la partie "donnees" (data fork) de 
['application elle-meme. Ainsi, ces 
donnees ne seront jamais perdues. 
A tout moment, il est possible de 
Copier I' image presente en me- 
moire, pour pouvoir la coller dans 
I'album, par exemple. Ceci permet 
de coller ces images dans Pixel 
Paint, entre autres (pour ce dernier, 
utiliser la palette Rainbow pour ret- 
rouver toutes les couleurs). 

Pour calculer une nouvelle image, 
['article de menu Calculer... amene 
une fenetre de dialogue dans lequel 
on pent preciser si on veut calculer 
un ensemble de Julia (complet) ou 
un agrandissement de l'ensemble de 
Mandelbrot. Si l'image deja pre- 
sente est un ensemble de Mandel- 
brot, il est possible, soit de 
l'agrandir, soit de calculer 
l'ensemble de Julia associe a un par- 
arnetre que 1'on choisit en pointant 
sur l'image de fond. Ceci se fait de la 
maniere suivante: apres avoir pous- 
se le bouton Pointer ou Agrandir 
selon le cas, l'image courante passe 
au premier plan. On peut alors cli- 
quer en un point de l'ensemble de 
Mandelbrot; les coordonnees du 
point clique sont aussitot reportees 
dans la botte de dialogue. Si Ton a 
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demande un ensemb 
cette boite reapparait Immediate* 
merit. Dans Ie cas contraire, on peut 
faire glisser la souris de fa^on a pre- 
cise* le rectangle que Ton veut 
agrandir. 

L'article do menu Animer... fait 
apparaitre un pseudo-dialogue mod- 
al pour faire toumer tes couleurs 
dans un sens on I'autre, vite ou 
lentement. Si on quitte ce dialogue 
par OK, la repartition des COllleUTS a 
laquelle on eta it arrive est eonser- 
vee. Ceei n'est pas possible si on et- 
ait en cours de calcul. Dans ce cas, 
la scule sortie de ['animation est par 



Annuler. 

On peut Imprinter... les images a 
partir du programme, apres avoir, 
bien stir, choisi le Formal 
d'impression... mais si les resultats 
sur LaserWriter ne sont pas passion- 
nants, avec une Tektronix couleur. 
c'est tres acceptable. II est possible 
de Cacher ou Montrer la fenetre 
car celle-ci est de taille fixe et non 
depla cable. En fin, il est possible 
d Arreter un calcul en cours, de 
Quitter le programme ou d'avoir des 
renseignements A propos de Julia 
& Mandelbrot... 



Le cahler couleur de MAK LAN 

vous montre le rehuli.it de quelques- 

unes de mes explorations, j'espere 
que ce programme donnera envie a 
certains d'entre vous de se plonger 
dans lestbetique des ensembles de 
Julia et Mandelbrot, tant du point de 
vue mathematique que du point de 
vue pictural. 

Nous remercions Pierre-Erh Colin 
de Symbiotic "France pour In realisa- 
tion sous forme de diapositives, des 
illustrations de cet article, sur $li> 
tic Writer. 
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Les illustrations de cet ar- 
ticle ainsi qu'une qua- 
rantaine d'autres, toutes 
aussi somptueuses, se- 
ront visibles, en anima- 
tion permanante sur 
notre stand (S3-8) a 
Apple-Expo, grace a une 
nouvelle version 1.04 du 
programme. 

II vous est possible de 
commander l'ensemble 
illustrations plus pro- 
gramme (6 megas pour 
50 animations) aupres de 
la revue. 
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MACHINE MC68020 

MC68881 
; FUNCTION Nblter(x, y, a. b : extended; limite : integer) : 
integer; 
Nblter PROC EXPORT 

StackFrame RECORD (A6Link),Decr 

resultat DS.W t 



aaramh EOU 




K DS.L 




y DS.L 




a DS.L 




b DS.L 




imite DS.W 




paramSize EQU 


paramh-* 


Return DS.L 




A6Link DS.L 




ENDR 




WITH 


StackFrame 


LINK 


A6,#0 


FMOVEM 


FP3-FP7.-(SP) 


FMOVE 


{[y,A6]),FP7 


FMOVE 


([x,A6l),FP1 


FMOVE 


([b.A6]),FP5 


FMOVE 


([a.A6]).FP4 


FMOVE.W 


#4.FP3 


MOVE 


limite(A6),D0 


BRA.S 


@1 


@2 FMUL 


FP6.FP7 


FADD 


FP7 


FADO 


FP5.FP7 


FSUB 


FP2.FP1 


FADD 


FP4.FP1 


@1 FMOVE 


FP1.FP6 


FMUL 


FP1 


FMOVE 


FP7.FP2 


FMUL 


FP2 


FMOVE 


FP1.FP0 


FADD 


FP2.FP0 


FCMP 


FP0.FP3 


FDBNGT 


D0,@2 


MOVE 


D0,resultat(A6) 


FMOVEM 


(SP)+,FP3-FP7 


UNLK 


AS 


RTD 


#paramSize 


ENDPROC 





MACHINE MC68020 
MC68881 

; FUNCTION Nblter(x, y, a, b : extended; limite : integer) 
integer; 

Nblter PROC EXPORT 

StackFrame RECORD (A6Link),Decr 
resultat DS.W 1 



paramh 


EQU 




X 


DS.L 


1 


y 


DS.L 


1 


a 


DS.L 


1 


b 


DS.L 


1 


limite 


DS.W 


1 


paramSize 


EQU 


paramh 


Return 


DS.L 


1 


A6Link 


DS.L 


1 



wrm 


StackFrame 


LINK 


A6,#0 


FMOVEM 


FP3-FP7,-(SP) 


MOVEA.L 


y(A6).A0 


FMOVE 


(A0),FP7 


MOVEA.L 


x(A6),A0 


FMOVE 


(A0),FP1 


MOVEA.L 


b(A6),A0 


FMOVE 


(A0).FP5 


MOVEA.L 


a(A6),A0 


FMOVE 


(A01.FP4 


FMOVE 


r4.0",FP3 


MOVE 


limite(A6),D0 


BRA.S 


@1 



FMUL FP6.FP7 

FADD FP7 

FADD FP5.FP7 

FSUB FP2.FP1 

FADD FP4.FP1 



FMOVE 


FP1.FP6 


FMUL 


FP1 


FMOVE 


FP7.FP2 


FMUL 


FP2 


FMOVE 


FP1.FP0 


FADD 


FP2.FP0 


FCMP 


FP0.FP3 


FBNGT 


@2 


DBRA 


D0.@3 



MOVE D0,resultat(A6) 

FMOVEM (SP)+.FP3-FP7 

UNLK A6 

RTD #paramSize 

ENDPROC 

END 



unit Globales; 
interface 
uses 

{$LOAD Packintf881 d) MemTypes, QuickDraw, OSIntt, Too- 

llntf, Packlntf. {$LOAD| 

PaletteMgr; 

const 

applelD-256; 

filelD =. 257; 

editID • 258; 

controllD = 259; 

cacheCache = 1 ; animation - 2; calcul = 3; stop = 4; 

cachID ■ 258; montrlD = 259; 

aboutID = 256; 
sorrylD = 256; 
depthID = 257; 
signID = 258; 
lOErrorlD = 259; 
paramID =260; 

mandelBtn = 3; juliaBtn = 4; 

xBox - 5; yBox = 6; dBox = 7; IBox = 8; dText - 12: 

echelle = 9; recharger =14; 

okID = 256; annullD = 257; 
gauche. 123;droite - 124; bas = 125; haut - 126; 
effacement = 51 ; retourChariot = 36; entree = 76; 
vMandel = 460; hMandel - 640; tailleBloc - 294400; 



Page 38 



MAK FAN N' 9 



{= hMandel * vMandel| 


procedure Copierlmage; 


couleurs ■ 192; 






var 


type 


thePic: Handle; 


EnTete = record case boolean of 


bof: longint; 


true: (signature: longint; 




julia: boolean; 


begin 


limite: integer; 


thePic := Image; 


x, y, delta: extended); 


HLock(thePic); 


false: (filler; array [0..127] of longint) 


bot := ZeroScrap; 


{ Pour arriver a 512 octets } 


bof .= PutScrap(GetHandleSize(thePic), 'PICT, IhePrc*); 


end; 


HUnlock(thePic); 




KillPicture(PicHandle(thePic}) 


var 


end; 


etat: (arret, calculDemande, calculEnCours, fin); 




monEnTete: EnTete; 


function OSFail(theErr: OSErr): boolean; 


pomme. controle: MenuHandle; 




maFenetre: WindowPtr; 


var 


unEvenement: EventRecord: 


bof: integer; 


blanc. noir: RGBColor; 


s: Str255; 


mesCouleurs: array[1.. couleurs] of RGBColor; 




maPalette: PaletteHandle; 


begin 


sysCTab, maCTab: CTabHandle; 


OSFail :■ theErr <> noErr; 


mRect, bRect: Rect; 


if theErr = noErr then EXIT(OSFail); 


gris, multiFinder: boolean; 


NumToString(theErr, s); 


myCPort: CGrafPort; 


ParamTextfs, ", ", "); 


myCGrafPtr: GrafPtr; 


bof := StopAlert(IOErrorlD, nil): 


monNom. leNom: Str255; 


InitCursor 


monVRelNurn: integer; 


end; 


end. 


procedure Charger; 


unit EntreesSorties; 


var 

ref, bot: INTEGER; 




theSize: longint: 


interface 


thePic: Handle; 




unEnTete: EnTete; 


uses 




($LOAD Packint1881.d| MemTypes. QuickDraw, OSIntf, Too- 


begin 


llntf, Packlntf, ($LOAD| 


SetCursor(GetCursor(watchCursor) rtA ); 


MacPrint, PalelteMgr, Globales; 


if OSFail(FSOpen(nomFichier. refVolume, ref)) then 




EXIT(Charger); 


procedure Copierlrnage; 


theSize := SizeOf(EnTete); 


procedure Charger(nomFichier: Str255: refVolume: integer: 


if OSFail(FSRead(ref, theSize. @unEnTete)) then 


prendsLeNom: boolean); 


EXIT(Charg e r); 


procedure OuvrirDebut; 


H unEnTete. signature - 314159265 then begin 


procedure Ouvrir; 


if OSFail(GetEOF(ref, theSize)) then EX IT (Charger); 


procedure Enregistrer; 


theSize := theSize - SizeOf( EnTete); 


procedure Format; 


thePic := NewHandle(theSize); 


procedure Imprimer; 


if OSFail(rnemError) then EXIT(Charger): 




HLock(thePic); 


Implementation 


if OSFail(FSRead(ref, theSize, thePic*)) then 




DisposHandle(thePic) 


function Image: Handle; 


else begin 




monEnTete := unEnTete; 


var 


HUnlock(thePic); 


savePort: GrafPtr; 


SetPort(myCGrafPtr); 


thePic: PicHandle; 


DrawPicture(PicHandle(thePic), mRect); 




KillPicture(PicHandle(thePic)); 


begin 


ShowWindow(maFenetre); 


GetPort(savePort); 


SetPort(maFenetre): 


SetPort(myCGrafPtr); 


CopyBits(myCGrafPtr\portBits, maFene- 


thePic := OpenPiclure(mRect); 


tre\portBits, mRect. mRect. srcCopy, nil); 


CopyBits(myCGratPtr\portBits, myCGrafPtr A .portBits, 


if prendsLeNom then leNom := nornFichier else 


mRect, mRect, srcCopy, nfl); 


leNom := "; 


ClosePicture; 


etat := arret 


Image := Handle(thePic): 


end 


SetPort(savePort) 


end else bof :- StopAlertfsignID, nil); 


end; 


if OSFail(FSCIose(ref)) then EXIT{Charger); 




InitCursor 




end; 
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theSize := GetHandleSize(thePic); 


procedure Ouvrir; 


HLock(thePic); 




if not (OSFail(FSWrite(ref, theSize, thePic A )) | OS- 


var 


FaiHFSCIose(ref))) then 


tempType: SFTypeList; 


leNom := fName: 


tempP: Point; 


HUnlock(thePic); 


theReply:SFReply; 


KillPicture(PicHandle(thePic)); 




myCPort.portPixMap' ,, '\prnTable := maCTab; 


begin 


InitCursor 


SetPl(tempP, 100, 100); 


end 


tempType[0] := 'PICT'; 


end; 


SFGetFile(tempP, ", nil, 1 , tempType. nil, theReply); 




SetPort(maFenetre); 


procedure Format; 


CopyBits(myCGrafPtr A .portBits, maFenetre*.portBits, 




mRect, mRect, srcCopy, nil); 


var 


ValidRecl(mRect); 


hPrint: THPrint; 


with theReply do if good then Charger{fName. vRef- 




Num, true) 


begin 


end; 


prOpen; 




hPrint := THPrint(NewHandle(SizeOf(Tprint))); 


procedure OuvnrDebut; 


If PrStlDialog(hPrint) then; 




disposHandle(Handle(hPrint)) 


var 


end; 


leFichier: AppFile; 




apvRefNum, leMessage, nombre: INTEGER; 


procedure Irnprimer; 


nomVolume: Str255; 




apParam: Handle; 


var 




hPrint: THPrint; 


begin 


myPrPort: TPPrPort: 


if OSFail(GetVol(@nomVolume. monVRetNum)) then 


thePict: PicHandle; 


EXIT(OuvrirDebut); 


prStatus: TPrStatus; 


GetAppParms(monNom, apvRetNum, apParam); 


savePort: GrafPtr; 


CountAppFiles(leMessage, nombre); 




if (leMessage = appOpen) and (nombre > 0) then be- 


begin 


gin 


SetPort(myCGrafPtr); 


GetAppFiles(1, leFichier); 


thePict := PicHandle(lmage); 


with leFichier do Charger(fName. vRefNum, true) 


PrOpen; 


end else Charger(monNom, monVRelNum, false) 


hPrint > THPrinl(NewHandle(SizeOt(Tprint))): 


end; 


if PrJobDialog(hPrint) then begin 




GetPortfsavePort); 


procedure Enregistrer; 


SetCursor(GetCursor(watchCursor) AA ); 




myPrPort := PrOpenDoc(hPrint, nil, nil): 


var 


SetPort(GrafPtr(myPrPort)); 


tempP: Point; 


PrOpenPage(myPrPprt, nil); 


ref: integer; 


DrawPicture(thePict. mRect); 


theSize: longint; 


prClosePage(myPrPort); 


theReply: SFReply; 


PrCloseDoc(myPrPort); 


thePic: Handle: 


PrPicFile(hPrinl, nil, nil, nil, prStatus); 


theErr: OSErr; 


InitCursor; 




SetPort(savePort) 


begin 


end; 


SetPt(tempP, 100, 100): 


disposHandle(Handle{hPrint)); 


SFPutFile(tempP, ", leNom, nil. theReply); 


KillPicture(thePict) 


SetPort(maFenetre); 


end; 


CopyBits{myCGrafPtr A .portBits, maFenetre\portBits. 


end. 


mRect, mRect, srcCopy, nil); 




ValidRect(mRect); 


(===================================) 


with theReply do if good then begin 


unit Parametres; 


SetCursor(GetCursor(watchCursor) Aft ); 




theErr :- FSDeletetfName, vRefNum); 


interlace 


It (theErr <> fntErr) & OSFail(theErr) then 




EXIT{ Enregistrer); 


uses 


if OSFail(Create(fName. vRelNum, "MdlC, 'PICT')) 


{$LOAD Packintf881.d) MemTypes, QuickDraw, OSIntf, Too- 


then EXIT(Enregistrer); 


llntf, Packlntf. )$LOAD) 


itOSFail(FSOpen(fName. vRelNum, ref)) then EXIT 


SANE, PaletteMgr, Globales, EnlreesSorties; 


(Enregistrer); 




theSize := SizeOf(EnTete); 


procedure NouveauxParametres; 


if OSFail(FSWrile(ret, theSize, @monEnTete)) then 




EXIT(Enregistrer); 


implementation 


myCPort.portPixMap A \prnTable ;= sysCTab; 




thePic := Image; 
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procedure NouveauxParametres; 


CopyBits(myCGrafPtr\portBits, maFenetre'\portBits, 




mRect. mRect, srcCopy, nil); 


var 


SetCursor(GetCursor(crossCursor)'" 1 ); 


x1. y1, d. aspecl; extended; 


repeat until GetNextEvent(mDownMask. unEvenement); 


lim, bof: longint; 


GetMouse(pl); 


Jul: boolean; 


if deux then begin 


monDlog: DialogPlr; 


aspect := hMandel / vMandel; 


p1, p2, p3. p4: Point; 


PenMode(patXor); 


f: DecForm; 


P 2:=p1: 


s: DecStr; 


Pt2Rect(p1,p2, r); 


t: Str255; 


while StillDown do begin 


r. laBoite: Rect; 


GetMouse(p3): 


laHandle: Handle; 


if ABS{p1 .h - p3.h) < aspect ' ABS(p1 ,v p3.v) then 


item, leType : integer: 


if p3.h > p1 .h then p3.h := p1 .h +■ round(aspect ' 




ABS(p1.v - p3.v)) 


procedure MiseEnBohefx: extended; itemID: INTEGER): 


else p3.h := pt.h - round(aspect ' ABS(p1.v - 




p3.v)) 


begin 


else 


GetDltem(monDlog, itemID, leType. laHandle. laBoite); 


if p3.v > pl.V then p3.v := p1 .v + round(ABS(p1 .h - 


Num2Str(f, x. s); 


p3.h) / aspect) 


SetlTextflaHandle, s) 


else p3.v := p1 .v - round(ABS(p1 .h - p3.h) / as- 


end; 


pect); 




if longint(p3) <> longint(p2) then begin 


procedure IMiseEnBoitefx: INTEGER; itemID: INTEGER); 


FrameRect(r); 




p2 > p3; 


begin 


p4.h:=2*p1.h-p2.h; 


GetDitem(monDlog, itemID. leType, laHandle. laBoite); 


p4.v := 2 * pl.v - p2.v: 


NumToStnng(x, t); 


Pt2Rect(p4, p2, r); 


SetlTextflaHandle. t) 


FrameRect(r): 


end: 


Delay{2, bof) 




end 


procedure LisBoitefitemID: INTEGER; var x: extended); 


end; 




FrameRect(r); 


begin 


PenNormal 


GetDltemfmonDlog, itemID, leType. laHandle. laBoite): 


end 


GetlTexl(laHandle, t): 


else while StillDown do GetMouse(pl); 


s := DecStr(t): 


InitCursor; 


x ;= Str2Num(s) 


SelectWindow(monDlog); 


end; 


SetPort(monDlog) 




end; 


procedure Fixltemfitem: integer; visible: boolean): 






begin jNouveauxParamelres) 


begin 


monDlog := GetNewDialogfparamlD. nil. WindowPtr( - 1 )); 


if visible Ihen ShowDltem(monDlog, item) else HideDltem 


with monEnTete do begin 


(monDlog. item) 


(.style :■ fixedDecimal: 


end; 


f.digits := 18; 




MiseEnBoite{x, xBox); 


procedure FixerBoutons; 


MiseEnBoile(y, yBox); 




MiseEnBoitefdelta. dBox); 


begin 


IMiseEnBoite(limite. IBox); 


GetDltemfmonDlog. juliaBtn, leType, laHandle, laBoite); 


Jul := julia; 


SetCtlValue(ControlHandle(laHandle).ORD(jul)); 


FixerBoutons; 


GetDitem(monDlog. mandelBtn, leType. laHandle, laBoite); 


ShowWindow(monDlog); 


SetCtlValue(ControlHandle(laHandle), ORD(not Jul)); 


repeat 


FixltemfdBox, not Jul); 


ModalDialogfnil. item); 


Fixltem(dText. nol jul); 


case item of 


if monEnTete.julia then HideDttemfmonDlog, echelle) 


echelle: 


else begin 


begin 


GetDltemfmonDlog, echelle. leType, laHandle. laBoite); 


PrendPointsfnot jul): 


if jul then SetCTitle(ControlHandle(laHandle). 'Pointer') 


MiseEnBoitefx + delta ' (p1,h - hMandel div 2), 


else SetCTitle(ControlHandle(laHandle), 'Agrandir'); 


xBox); 


ShowDltem(monDlog. echelle) 


MiseEnBoitefy ■ delta ' (p1 ,V - vMandel div 2), 


end 


yBox); 


end; 


If jul then MiseEnBoite(4 / hMandel. dBox) 




else MiseEnBoitefdelta ' 2 ' ABS(p1.h - p2.h) / 


procedure PrendPoints|deux: boolean): 


hMandel, dBox] 




end; 


begin 


juliaBtn, mandelBtn: 


ShowWindow(maFenetre); 


begin 


SelectWindow(maFenetre) ; 


jul := not Jul; 


SetPort(maFenetre); 


FixerBoutons 
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end; 


aRect: Rect; 


recharger: 


nextTick; longint; 


begin 




Charger(monNom, monVRefNum, false); 


begin 


MiseEnBoitelx, xBox); 


etat := calculEnCours; 


MiseEnBoJte(y, yBox); 


Enableltemfcontrole, stop); 


MiseEnBoitefdelta, dBox); 


nextTick := TickCount; 


IMiseEnBoiteflimite, IBox); 


SetPort(myCGrafPtr); 


FixerBoutons 


EraseRect(mRect); 


end; 


SetPort(maFenetre); 


OK: 


EraseRect(mRect); 


begin 


Se1Rect(aRect. 0, 0, hMandel, 1); 


LisBoitefxBox. x1); 


p := myCPort.portPixMap A \baseAddr; 


LisBoitefyBox, y1); 


with monEnTete do begin 


if Jul then d := 4 / hMandel else UsBoite(dBox. 


If julia then begin 


d); 


xMin := - 2; 


GetDltemfmonDlog. IBox, leType, laHandle. la- 


b := 2 " vMandel / hMandel 


Boite); 


end else begin 


GetlTextflaHandle, t): 


xMin := x - hMandel * delta / 2; 


StringToNumft. lim); 


b := y + vMandel * delta / 2 


if (ABS(x1 ) < 3] S (ABS(y1) < 3) & (d > 0) & (d < 


end: 


D 


for v := 1 to vMandel do begin 


& (lim > 0) & (lim < maxint) then begin 


a := xMin: 


x:«xt; 


for h := 1 to hMandel do begin 


yr-y1; 


if longPtr(ticks) A > nextTick then begin 


delta := d; 


if GetNextEvent{everyEvent, unEvenernent) 


fimite := lim; 


then TraiteUnEvenement; 


Julia := jul: 


if etat <> calculEnCours then Exit(Calculer); 


etat ;= calculDemande 


nextTick := longPtr(ticks) A + 9 


end else begin 


end; 


SysBeep(2); 


if julia then nb ;■ Nblterfa, b, x, y, limite) 


item := maxint 


else nb := NblterfO. 0, a, b, limite): 


end 


if nb < then p A := 1 


end; 


else p* := 2 + (limite - nb) MOD couleurs; 


otherwise 


a := a + delta; 


end 


p:=Ptr(1 + longint(p)) 


until (item = OK) or (item = cancel) 


end; 


end; 


SetPort(maFenetre); 


DisposDialog(monDlog) 


CopyBits(myCGrafPtr\portBits, maFene- 


end; (NouveauxParametres) 


tre\portBits. aRect, aRect, srcCopy, nil); 




OffsetRectfaRect, 0. 1); 


end. 


b := b - delta 


{===================================} 


end 




end 


unit Divers; 


SysBeep(1); 


interface 


elat := arret; 


uses 


Disableltemfcontrole, stop) 


{$LOAD Packintf881 .d} MemTypes, QuickDraw, OSIntf, Too | 


end; 


llntf, Packlntf, |$LOAD) 

D'. l -*\* l -. r \^H n., f«4L>U« /-i|_l J I— ^* r-» _..,■. . r-s 





Pickerlntf. PaletteMgr, Globales, EntreesSorties, Paramet 

res; 
procedure Calculer; 
procedure TraiteUnEvenement; 

implementation 

function Nblterfx, y, a, b: extended; limite: integer); integer; 
external: 

procedure Calculer; 

const 

ticks ■ $16A; 

type 

longPtr = longint; 



a, b, xMin; extended: 
h, v, m, nb: integer; 
p: Ptr; 



procedure Animer; 



i, numRect. decalage: integer; 

specs: array [0..255] of ColorSpec; 

index: array [0, couleurs] of integer: 

fini, inverse: boolean; 

saveTable: CTabHandle; 

laListe; array [0..256] of integer; 

laReq: A ReqListRec; 

monRect: array[l..6] of Rect; 

cRect: Rect; 

lePoint: Point: 

bof: longint; 

s: Str255; 

clavier; KeyMap; 

touche: array[1,,6] of integer; 

procedure Decaler(p: Ptr); 



: longint: 
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m: integer; 

begin 

for i := 1 to tailleBloc do begin 
m :=p n ; 

if m< then m:=m + 256; 

if m > 1 then p A := (m - 2 + decalage) MOD couleurs + 
2; 

p := Ptr(longint(p) + 1} 
end 
end; 

procedure Tourner(sensDirect: boolean); 

var 

i: integer; 

adresse : A CSpecArray; 

begin 

If sensDirect then begin 

decalage := decalage + 1 ; 

if decalage * couleurs then decalage := 0; 

index[0] := index[couleurs]; 

BlockMove(@index, @index[1], 2 * couleurs) 
end 
else begin 

decalage := decalage - 1; 

if decalage < then decalage := couleurs - 1 ; 

BlockMove(@index[1], @index, 2 * couleurs); 

index[couleurs] ;= index[0] 
end; 

for i := 1 to couleurs do specs[index[i]].rgb := mesCou- 
leurs[i]; 

adresse := @specs; 
SetEntries(0, 255, adresse*) 
end; 

procedure CreeRec1(i. top, left, bottom, right: integer; s: 
Str255; laTouche: integer); 

begin 

SetRect(rnonRect[i], left, top, right, bottom); 
with cRectdo OffsetRect(monRect[i], left, top); 
EraseRoundRect(monRect[i]. 8, 8); 
FrarneRoundRect(monRect[i], 8, 8); 
with monRectp] do MoveTo|(lett + right - StringWidth(s)) 
div2.top + 12); 
DrawString(s); 
touchefi] := laTouche 
end: 

begin {Animer) 
laReq := @laListe; 
laReq\reql_Size := 255; 

with laReq A do for i := to 255 do reqLDatap] := i; 
saveTable := CTabHandle(NewHandle{8 * 257}}; 

SetPort(maFenetre); 
TextFont(systemFont) ; 
TextSize(12); 
RGBForeColor(noir); 

SetRect(cRect, hMandel - 120, vMandel - 32. hMandel. 

vMandel}; 

s := GetString(oklD) AA ; 

CreeRect(ok, 16, 0. 32. 60, s, retourChariot); 

s ^GetStringlannullD)^; 

CreeRectfcancel, 16, 60, 32, 120, s, effacement); 

CreeRect(3, 0, 0, 16, 30, '«', bas); 

CreeRect(4, 0, 30. 16, 60, '<', gauche); 

CreeRect(5, 0, 60. 16, 90. V, droits); 



CreeRect(6. 0, 90, 16, 120, '»', haut); 
if etat <> arret then begin 

PenMode(patBic); 

PenPat(gray); 

PaintRoundRect(monRect[ok], 8, 8); 

PenNormal 
end: 

SaveEntries(nil, saveTable. laReq A ); 

for i := 1 to couleurs do index[i] := Color2lndex(mesCou- 

leurs[i]); 

HI_ock(Handle(saveTable)); 

BlockMove(@saveTable AA .ctTable, @specs, SizeOf 

(specs)); 

HUnlock(Handle(saveTable)); 

decalage := 0; 
fini := false; 
repeat 
GetMouse(lePoint); 
if Button then 

if PtlnRect(lePoint. cRect) then begin 

for i := 1 to 6 do if PtlnRect(le Point. monRectp]) 
then numRect := i; 
inverse := false; 

if (numRect <> ok) or (etat = arret) then while But- 
ton do begin 

GetMouse(lePoint); 

if inverse <> PtlnRect(lePoint, monRect[num- 

Rect]} then begin 

lnvertRoundRect(monRect[numRect], 8, 8); 
inverse := not inverse 
end; 

if inverse and (numRect > 2) then begin 
Tourner(numRect < 5); 

if (numRect = 4) or (numRect = 5) then Delay 
(5, bof) 
end 
end: 
if inverse then begin 

if numRect ■ ok then Decaler(myC- 
Port.portPixMap AA .baseAddr): 
fini := (numRect < 3); 

lnvertRoundRect(monRect[numRect]. 8. 8] 
end 
end 

else SysBeep(1) 
else begin 

GetKeysfclavier}; 

numRect := 0; 

for i := 1 to 6 do if clavier[touche[i]] then numRect := 

if clavier[entree] then numRect := ok; 
if (numRect > 0) and ((numRect <> ok) or (etat ■ ar- 
ret)) then begin 

lnvertRoundRect(monRect[numRect], 8, 8); 
while clavier[touche[numRect]] or clavier[entreej 
do begin 

If numRect > 2 then begin 
TournerlnumRect < 5): 

if (numRect = 4) or (numRect = 5) then Delay 
(5, bof) 
end; 

GetKeys(clavier); 
end; 

if numRect = ok then DecalerfmyC- 
Port.portPixMap AA .baseAddr): 
fini := (numRect < 3); 

lnvertRoundRect(monRect[numRect], 8, 8} 
end 
end 
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until fini; 


HtdeWindow(maFenetre) 
else 

ShowWindow(maFenetre); 


RestoreEntriesfsaveTable, nil, laReq A ); 


DisposHandle(Handle(saveTable)); 


animation: Animer; 


CopyBits(rnyCGrafPlr\portBits, maFenetre\portBits. 


calcul: NouveauxParametres; 


mRect, rnRect, srcCopy, nil) 


stop: etat := arret 


end; (Animerl 


end 




end; 


procedure APropos; 


HiliteMenu(O); 




if WindowPeek(maFenetre)\ visible then begin 


var 


Setltem(controle, cacheCache, GetString(cachlD) rtA ); 


s: Str255; 


Enableltem(controle, animation) 


i: integer; 


end else begin 




Setltem(controle, cacheCache, GetString(montrlD) A "'); 


begin 


Disableltem(controle, animation) 


SelectWindow(maFenetre); 


end; 


ShowWindow(maFenetre); 


if etat <> calculEnCours then Disableltemfcontrole, stop) 


SetPorl(rnaFenelre); 


end; 


EraseRect(mRect); 




TextFont(geneva); 


procedure TraiteUnEvenement: 


TextSize(24}; 




Text Face ([bold, underline]); 


var 


RGBForeColor(rnesCouleurs[1]); 


laFenetre: WindowPtr; 


GetlndString(s, aboutID, 1); 


lePort: GratPtr; 


with mRect do MoveTo((left + right - StringWidth(s)) div 2, 




90); 


begin 


DrawString(s); 


with unEvenement do 


TextSize(12); 


case what of 


TextFace([]); 


mouseDown: 


fori :=2 to 13 do begin 


case FindWindow(where. laFenetre) of 


RGBForeColor(mesCouleurs[14 ' i]); 


inSysWindow: SystemClick(unEvenement : laFe- 


GetlndString(s, aboutID, i); 


netre); 


with mRect do MoveTo{{left + right - StringWidth(s)) div 


inMenuBar; Commande(MenuSelect(where)}; 


2, 90 + 20 ' i); 


inDrag: DragWindow(laFenetre, where, bRect]: 


DrawString(s); 


inGoAway: if TrackGoAwayflaFenetre, where) 


end; 


then HideWindow(laFenetre); 


repeat until Button; 


mContent: if laFenetre <> FrontWindow then Se- 


InvalRect(mRect) 


lectWindow(laFenetre); 


end; 


otherwise 




end; 


procedure Commande(ordre; longint); 


keyDown, autoKey: 




if BitAndfmodifiers, cmdKey) <> then 


var 


Commande(MenuKey(Chr(BitAnd(message, 


menu, item, bof: integer: 


charCodeMask))}); 


nom;Str255; 


update Evt: 




begin 


begin 


GetPort(lePort); 


menu ;■ HiWord(ordre); 


laFenetre := WindowPtr(message); 


item := LoWord(ordre): 


SetPort(iaFenetre); 


case menu of 


BeginUpdate(laFenetre): 


applelD: 


if laFenetre = maFenetre then 


If Item = 1 then Apropos 


CopyBits(myCGrafPtr n .porlBits, maFene- 


else begin 


tre \portBits, mRect, mRect, srcCopy, nil): 


Getltem(pomme, item, nom); 


endUpdate(laFenetre); 


bof := OpenDeskAcc(nom) 


SetPort(lePort) 


end; 


end; 


filelD: 


app4Evt: 


case item of 


if WindowPeek(FrontWindow) A .windowKind < 


1: Ouvrir; 


then begin 


2: Enregistrer; 


modifiers :- ORD(ODD(message)); 


4: ChargerfmonNom, monVRefNum, talse); 


message > longint(FrontWindow); 


6; Format; 


what := activateEvt; 


7: Imprimer; 


if SystemEvent(unEvenement) then 


9: etat := fin 


end; 


end; 


otherwise 


editID: if SystemEditfitem - 1) | (item = 4) then Copierlm- 


end 


age; 


end; 


controllD; 




case item of 


end. 


cacheCache: 


{===================================} 


if WindowPeek(maFenetre) ft . visible then 
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program JetM; 


HSV2RGB(tHSV. tRGB}; 


uses 


mesCouleursp] ;- tRGB; 


{$LOAD Packintf.d) MemTypes, QuickDraw. OSIntl, Toollntf. 


end; 


Packlntf, {$LOAD} 




PickerlnH, PaletteMgr, Globales, EntreesSorties, Divers; 


maCTab := CTabHandle(NewHandle(8 + (couleurs + 2) * 




SizeOf(ColorSpec))); 


procedure Maclnit; 


with maCTab AA do begin 


begin 


ctSeed := 0; 


lnitGraf(@thePort); 


translndex ;= 0; 


SetCursor(GetCursor(watchCursor)' VA ); 


ctSize := couleurs + 1; 


InitFonls; 


ctTable[0].rgb := blanc: 


FlushEvents{everyEvent, 0); 


ctTable[1].rgb := noir; 


InitWindows: 


for i := 1 to couleurs do ctTable[i + 1].rgb := mesCou- 


InltMenus; 


leurs[i]; 


TElnit; 


for i := to couleurs + 1 do ctTable[i]. value ■- i 


InitDialogs(nil); 


end; 


MoreMasters; 


rnaPaletle :■ NewPalette(couleurs + 2, nil, pmTolerant, 0); 


MaxApplZone; 


CTab2Palette(maCTab, maPalette, pmTolerant, 0); 


SetRect(bRect, -maxint, -maxint, maxint. rnaxint) 




end, 


(Creation de la fenetre} 


procedure VerifierEnvironnement: 


SetRect(mRect, 0, 0, hMandel, vMandel}; 


const 


wRect := rnRect; 


WNE = $60; Notlmp! = $9F; 


OffsetRect(wRect, 0, 20); 




maFenetre := NewCWindow(nil. wRect, ", true, plainDBox, 


var 


WindowPtr( 1). true, 0}; 


leMonde: SysEnvRec; 


SetPalette( maFenetre. maPalette. true); 




ActivatePalette(maFenetre); 


begin 




if SysEnvirons{1 , leMonde} <> noErr then ExitToShell; 


{Creation de la PixMap hors-ecran} 


if leMonde. hasColorQD and leMonde. hasFPU then 




multiFinder ;= GetTrapAddress(WNE) <:> GetTrapAd- 


p :■ NewPtr(tailleBloc); 


dress(Notlmpl) 


if memError <> noErr then ExitToShell; 


else if StopAlertfsorrylD. nil) > then ExitToShell; 


OpenCPort(@myCPort); 


if (GetMaxDevice(bRect) AA .gdPMap AA .pixelSize < 8) 


myCGrafPtr ;- @myCPort: 


& (StopAlert(depthlD, nil) > 0) then ExitToShell 


sysCTab := myCPort.portPixMap AA .pmTable; 


end; 


with niyCPort.portPixMap' VA do begin 




baseAddr > p; 


procedure Proglnit; 


rowBytes :- hMandel + $8000; 




bounds := mRect: 


var 


pixelSize :■ 8; 


wRect: Rect; 


pmTable := maCTab 


p: Ptr; 


end; 


tRGB: RGBColor; 


SetPort{myCGrafPtr); 


tHSV: HSVColor; 


EraseRect(mRect); 


i: integer; 


ClipRect(mRect); 


begin 


{Divers} 


{Creation des menus) 


gris > false; 




etat ;= arret; 


pomme :« GetMenu(applelD); 


InitCursor 


AddResMenu(pomme. 'DRVR'); 


end; 


lnsertMenu(pomme, 0); 




lnsertMenu(GetMenu(filelD), 0); 


begin 


lnsertMenu(GetMenu(editlD), 0); 


Maclnit; 


controle : = GetMenu(controllD); 


VerifierEnvironnement; 


InsertMenufcontrole. 0); 


Proglnit; 


DrawMenuBar; 


OuvrirDebut; 




repeat 


{Creation des tables de couleur) 


if multiFinder then begin 




if WaitNextEventfeveryEvent, unEvenement, 20, nil} 


with blanc do begin 


then TraiteUnEvenement 


red := - 1 ; green := - 1 ; blue := - 1 


end else begin 


end; 


SystemTask; 


with noir do begin 


if GetNextEvent(everyEvent, unEvenement) then Trai- 


red := 0; green := 0; blue ;= 


teUnEvenement 


end; 


end; 


tHSV. saturation := - 1 ; tHSV.value := - 1 ; 


if etat = calculDemande then Calculer 


for i := 1 to couleurs do begin 


until etat = fin 


tHSV. hue := $0FFFF * i div couleurs; 


end. 
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$"20EF FFFC 004F DFFE 0007 DFFE 0003 9FFE" 


#include "Types. r" 


$"0000 1 FFE 0000 OFFC 0000 07F8 0000 03F0" 




$"0000 0040 0000 OOEO 0000 OOEO 0000 0040" 


type 'MdlC as 'STR '; 

1 


$"0000 0010 0000 0200 0000 0000 0000 0000" 


J 
resource 'MdlC (0) { }; 




"Julia & Mandelbrot, Version 1.1. C Aoul 1988" 




" par Dominique Bernardi. Domaine public." res 


jurce 'MENU' (256) ( 


); 2 


56. textMenuProc, Ox7FFFFFFD, enabled, apple, 


I 

resource 'SIZE' (0) ( 


"A propos de Julia & Mandelbrot,..", nolcon, "", "", plain. 


dontSaveScreen, 


"•", nolcon, "", "", plain 


acceptSuspendResumeEvents, ] 




disableOptionSwilch, }; 




canBackground. 




multiFinderAware. res 


jurce 'MENU' (257) ( 


700000, < 


57, textMenuProc, 0x7FFFFF6B, enabled, "Fichier", 


700000 I 




(; 


"Ouvrir...", nolcon, "0". "". plain, 




"Enregistrer...", nolcon. "S", "". plain. 


resource BNDL' (128) ( 


"-", nolcon, "", "", plain. 


'MdlC, 0. 


"Recharger". nolcon, "R", "". plain, 


( 


"-", nolcon, "", "", plain, 


•|CN#\ (0,128, 1,129), 


"Formal d'impression...", nolcon. "", "", plain, 


'FREF'. (0,128, 1,129) 


"Imprinter...", nolcon, "", "", plain, 


) 


"-", nolcon, "", "", plain, 


); 


"Quitter", nolcon, "Q", "", plain 


resource 'FREF (128) ('APPL', 0, ""); ); 




resource 'FREF (129) ('PICT. 1, ""(; res 


ource 'MENU' (258) ( 




58, textMenuProc. 0x7FFFFFFD, enabled. "Edition", 


resource 'ICN#' (128) ( 




( /* array: 2 elements "/ 


"Annuler", nolcon, "Z", "", plain, 


/•[1p 


"-", nolcon, "". "", plain, 


$"0000 0000 0000 0200 0000 001 0000 0040" 


"Couper", nolcon. "X", "", plain, 


$"0000 O0EO 0000 00E0 0000 0040 0000 03F0" 


"Copier", nolcon, "C", "", plain, 


$"0000 07F8 0000 0FFC 0000 1 FFE 0003 9FFE" 


"Coller". nolcon. "V", "", plain, 


$"0007 DFFE 004F DFFE 20EF FFFC FFFF FFF8" 


"Effacer", nolcon, "". "", plain 


$"20EF FFFC 004F DFFE 0007 DFFE 0003 9FFE" 




$"0000 1 FFE 0000 0FFC 0000 07F8 0000 03F0" ); 




$"0000 0040 0000 00E0 0000 00E0 0000 0040" 




$"0000 001 0000 0200 0000 0000 0000 0000". res 


ource 'MENU' (259) ( 


/• [2] '/ 


»59. textMenuProc. 0X7FFFFFF7. enabled, "Controle", 


$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF' 




$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF' 


"Cacher la tenetre", nolcon, "F", "", plain, 


$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF' 


"Animer...", nolcon, "A", "", plain, 


$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF' 


"Calculer...", nolcon, "K", "", plain, 


$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF' 


"Arreter", nolcon, "", "", plain 


$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF" 




$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF ) ; 




$"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF' 




) res 


ource 'STR ' (256, preload, locked) ("OK"): 


res 


ource 'STR ' (257, preload, locked) ("Annuler"}; 


resource 'ICN#' (129) { 




( /* array: 2 elements */ res 

/•[1]-/ 

$"00000000 000002000000001000000040" res 


ource 'STR ' (258, preload, locked) ("Cacher la tenetre"}; 


ource 'STR ' (259, preload, locked) ("Montrer la tenetre"}: 


$"0000 00A0 0000 00A0 0000 0040 0000 03F0" 




$"0000 0408 0000 0804 0000 1 002 0003 9002" res 


ource 'STR#' (256, preload) ( 


$"0004 5002 0048 5002 20A8 3004 DF18 3008" 




$"20A8 3004 0048 5002 0004 5002 0003 9002" 


Julia S Mandelbrot", 


$"0000 1002 0000 0804 0000 0408 0000 03F0" 


Un programme de plus pour admirer I'ensemble de Mandelbrot", 


$"0000 0040 0000 00A0 0000 OOAO 0000 0040" 


el les ensembles de Julia associes,". 


$"0000 0010 0000 0200 0000 0000 0000 0000". 


ecrit par Dominique Bernardi pour MAK FAN,", 


r [2] v 


la revue des tanas du Macintosh 1 ".". 


$"0000 0000 0000 0200 0000 001 0000 0040" 


", 


$"0000 00E0 0000 OOEO 0000 0040 0000 03F0" 




$"0000 07F8 0000 OFFC 0000 1 FFE 0003 9FFE" 


Je remercie Steve Sheets et toute lequipe de Mac Tutor,", 


$"0007 DFFE 004F DFFE 20EF FFFC FFFF FFF8" 


ainsi que Serge Bastide d'Apple Computer France.", 
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"Tout ce que vous avez toujours voulu savoir sur les ensembles 


OK, visible. sound3. 


de Julia". 


OK. visible. sound3, 


"et de Mandelbrot est explique et illustre dans le livre", 


OK, visible. sound2, 


""The Beauty of Fractals", par H.-O. Peitgen et P.H. Richter,", 


OK, visible, soundl 


"Springer- Verlag 1986." 
} 


} 

); 


); 


resource 'DITL' (259) ( 


resource 'ALRT (256, "pasMacll"] { 


1 


(60, 70. 160,440), 


(70. 190, 90. 250}, Button (enabled. "OK"}. 


256. 


(10, 100, 60, 340}, StaticText (disabled, 


[ 


"Erreur d'entree-sortie A 0") 


OK, visible, soundl, 


1 


OK, visible, soundl, 


); 


OK, visible, soundl, 




OK, visible, soundl 


resource 'DLOG' (260. preload) ( 


1 


[100, 100.300,540}, 


}: 


dBoxProc, invisible, noGoAway, 0x0, 260, "" 
i, 


resource 'DITL' (256) { 


!■ 


{ 


resource 'DITL' (260, preload) { 


{70, 190, 90, 250}, Button {enabled. "OK"}. 


1 


{10, 100, 60, 340|, StaticText {disabled, "Desole, ce pro- 


(170. 90, 194, 170), Button (enabled- "Calculer"), 


gramme" 


(170, 270. 194. 350), Button (enabled. "Annuler"). 


" necessite Color QuickDraw et un coprocesseur arithme- 


(8, 20, 32, 140). RadioButton (enabled, "Mandelbrot"), 


tique."} 


(6, 300. 32, 420), RadioButton (enabled, "Julia"), 


} 


(44, 216. 60. 416}. EditText (disabled. ""}, 


J; 


(68, 216, 84. 416), EditText (disabled, ""), 




(92, 216. 108, 416), EditText (disabled. ""). 


resource 'ALRT' (257, "pas assez de couleurs") { 


(116, 216. 132,416), EditText (disabled, ""), 


(60, 70. 160,440), 


(8, 180, 32, 260). Button (enabled. "Agrandir"). 


257, 


(44, 16, 60, 152), StaticText (disabled. "Partie reelle"}. 


{ 


(68. 16, 84, 152}, StaticText (disabled, "Partie imaginaire"}. 


OK, visible, soundl, 


(92, 16, 108, 152), StaticText (disabled, "Increment par pix- 


OK, visible, soundl, 


el"), 


OK, visible, soundl, 


(116, 16, 132, 152), StaticText (disabled, "Nombre 


OK, visible, soundl 


d'iterations"), 


} 


(140, 20, 164, 420). Button (enabled, 


J; 


"Recharger I'ensemble de Mandelbrot complet"} 
1 


resource 'DITL (257) { 


t 

); 


{ 

{70. 190, 90, 250), Button [enabled, "OK"), 




{10. 100,60, 340), StaticText (disabled, "Priere de choisir" 




" 256 couleurs ou niveaux de gris."} 


leNom ■ 'Julia & Mandelbrot' 


} 


# avec des "faux" espaces... 


}: 


POptions - -r -mc68881 -mc68020 




Objs = JM.p.o JM.a.o Globales.p.o EnlreesSorties.p.o Divers. p. o 


resource 'ALRT (258, "signature") ( 


Parametres.p.o 


{60, 70, 160,440), 




258, 


JM / {leNom} 


{ 


Setfile -a B {leNom} 


OK, visible, soundl, 


Echo {leNom} 


OK, visible, soundl, 




OK. visible, soundl. 


{leNom} //JM.r 


OK. visible, soundl 


Rez JM.r -append -o {leNom} 


1 

); 


{leNom) // FulIM 




Duplicate -d -y FulIM {leNom} 


resource 'DITL 1 (25B) ( 




{ 


(leNom) //(Objs} 


|70, 190. 90. 250). Button (enabled. "OK"), 


Link -t APPL -c 'MdlC -o {leNom} (Objs) 9 


{10, 100. 60, 340}, StaticText (disabled, "Desole." 


"{Librariesf'lnterface.o 3 


" ce tichier PICT ne m'appartient pas..."} 


"(Libraries)"Runtime.o <) 


) 


"{PLibraries}"PasLib.o<l 


)■■ 


"{PLibraries["SANELib881.o 


resource 'ALRT' (259, "lOError") ) 


JM.p.o / JM.p# celui-ci ne doit pas contenir de code 68020 


(60, 70, 160.440), 


Pascal JM.p -r 


259, 

I 
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Outils de 
programmation 
: aides a 
Tedition. 



(2) ® 

Installer OnBase 



WinTool.DA 1 ^ l-' 

Docteui--6as*€' 



Li's quelques 600 routines de la Toolbox, accom- 
pagnees de plusieurs centaines de variables glo- 
bales et de constantes predeiinies son! une des 
diiTicultes de la programmation sur Macintosh. 
S'il esf facile de retenir une centaine parmi les 
fonctlons et procedures les plus frequemment utilisees, 
l'eiendue du suji't a fait apparaltre tres lot la necessity 
d'un outil d'alde ii JV^l it ion, Interaifidiaire entre la me- 
moir* personnelle et la documentation ecrite (5 volumes 
d'Inslde Macintosh , plus notes techniques). 

Trois produits sont prcsentes, chacun traitant le pro- 

bleme avec une approche legerement differente, 



Inside Mac 



Distribue' en shareware pour la tnodique somme de 
H)$, EnsideMac se presenre sous forme de quatre fi- 
chiers; un accessoire de bureau , un Index et Le manuel 
(devant se trouver tous deux dans le dossier systems), 
plus une note d'informations mhis forme do document 
MacWrite. 

Bernard Gallet, I'auteui de eel accessoire de bureau, a 
retenu une approche exhaustive; la base cle donnecs OC- 
CUpe plus de 600K ( = > disque dur) el contienl des pages 
cntieres d'lM (les Informations sur ta procedure Drag- 
(IravKgn oceupenl pros de deux pages!), 
l.'ouverture de 1'accessoire fail apparaitre un dialogue 



IHVK.ll- Mm 



Crt*t« oreitei a new file (both forks) nth th* spe 
file type. *nd creator oil the specified volume. (File t 
creator tie discussed in too FjjuJm Interface chapter ) 
The new file is unlocked and empty The dat .- a ivl I Lit* I 
creation and list modification are set to the curient d 



(■■■-.■ 1 1 ■. 



noErr No error 

MHUftBrr Bad file MM 

dupFHErr Oiiplicnt-e file tuattie aid \ 



FSOpen 

■ >■.-,. i 



f Find... ] friiT BUl ) Q 



anua l I 1 |-m Maw 



Manual ' ' l-fi Manual 

Inside Mac DA MMIndex 



conlenant deux tableaux: managers et routines. Lin die 
dans le tableau des managers tail apparaltre dans le ta- 
bleau de gauche fcoutes ses routines. Un double cite sur 
I'une de celle-ci provocjue son affichage, avec ses para 
metres et un commentaire souvent tres complet. Le 
bouton interface permet Faeces instantane a toutes les 
constantes et variables globales i]u manager concerne. II 
est aussi possible de eherchcr une routine dont on 
ignore le manager en enfoncant le bouton "Find". Les In- 
formations alfiehoes sont "eopiables". 

On Line Programmer's Companion 

Pour cet outil, Steve CappS, un des ereatcurs du Mac, 
auteur de nombreux produits de grande quality a rete- 
nu comme premiers crileres I'etfieacite el la Vitesse, an 
detriment de ['interface. Toute personne utilisant inten- 
sivement un edileur apprecie enormemenl le gain de 
temps de certains raCCOUrcis clavier; il est en effet fasti- 

Llieux ile quitter celui-ci pour chercher ta sourls, puis le 

eurseur, puis de positionner ee dernier, de choisir un 
menu, ou de scroller, elc. (."est une question de pratique 
el de raeilite: la souris pour certaines laches (avec, pour 
les debutants, la certitude tie se relrouver clans une 
interface standard), le clavier pour d'autres, d'autant 
plus lacilement que, dans eette application, trois ou 

quatre combinaisons "Commande-X" suffisent. 

Le produil se compose de tleux t'ichiers: Installer, serl 
comme son mini l'indique, ii installer le programme par 
le biais d'une ressource I NIT, le desinstaller, modifier 
les touches de commando et la base de donnees On 
base. Une Ibis le programme installe, il sera disponible 
inslantanement apres ehaque demarrage. 

Le prineipe d'utilisation, tres simple, est base sur des 

combinaisons de touches du type "Commande X", "X" 
etant un caractere modifiable. 

Un exemple va permettre de monlrer ce que sait laire 

C€ produil. 

Supposnns que nous ayOHS oublie les paramelres de 

GetNextEvent; 11 suffit d'effectuer; 

l- Command ' : ceci fait apparaltre dans le has de 
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i'l'cr.iLi, mi rectangle blanc contenant un point 
d'interrogation. 

2- Entrer les premieres lettres "GetNex", appuyer sur Re- 
tour, et presquc instanement apparait, toujuurs dans le 
bas de I'ecran, In figureei-dessous contenant la function, 
ses parnmetres, et son resultat; le signe delta indique un 
displacement possible des blocs dans le heap, le numero 
entre accolades est celui de la trappe en hexa; 1-257 indi- 
que le volume et la page d'inside Macintosh ou est de- 
crite cette function (tres utile). 



InMIJIJUHIfJfl llumsk: INTEGER; URH But: ELienlRecoidl: BOOLEAN: A 
IR970) 1257 

Si nous n'avons pas encore ecrit cette fonction, Com- 
mand-Enter vn l'i5erire directement dans le source de 
notre programme, a I'emplacement du curseur. 
Command-Maj-Enter ecrira: GstNtXtEvenUnmsk, ci't); 
Vuus avez un doute sur la structure de I'eventRecord? 
Double clique/ sur ce nom, et vous obtenez : 



ii INTEGER: 

message: LONOINI; 
when: LONGINT; 
inhere: Point; 
modifiers: INTEGER; 



enlNum 

cutMevsage > 
veulTickss 

CLitMouse- 
«eLHMelQ' 



Le texte entre guillemets se rapporte a 1'assembleur. 

Deuxieme exemple: nous savuns qu'il exisfe une routine 

pour obtenir la memuire dispunible, mais nous avons ou- 

blie son num. Cumme il est evident que ceci se rapporle 

au Memory Manager, il suffit de faire: 

Command ' 

Ecrire "memory" puis touche return; on obtient: 



i^uiiTiiii Manage) 
OpplicZone 
Dlsposllandle 
FreeMem 
GetPtrSIze 
HandleZone 
HLock 
HSelRBit 

I »■ Il IT|i| •) ," 



t 1 of i\ III : ■ < 

BlockMoue 

DhposPti 

bet Rppl Limit 

r>el?one 

in i, uiiii 

HNoPurye 

HUnlnek 

InltZone 



(ompaMMem 

I iii|)ii|N<iin1li- 

BetBamtleSlza 

tiZSmu'Hnd 

RfcelSlale 

HPurge 

HSetState 

MtiHflpplZone 



Une lecture rapide permet de loealiser FreeMem; un 
double die sur ce nom produil: 

|: LONGINT; A C-» DO-free-- IfiOlE, MOO-system heap] 11-38 



Les informations sont a la fois concises et suffisamment 
claires pour une personne ayant suivi une formation pre- 
alable sur Mac. ( ->D0 indique que le resultat en assem- 
bleur se trouve dans le registre DO) 

Si notre trou de memoire est tel que nous ne savons pas 
dans quel chapitre chercher, ecrire "Road" et la carte 
suivante apparait : 



Eontrots 

Dialogs 

Filet 

Lists 

rrintino, 

Scrap 

Sound Uriuei 

Ulililies 



Un double clic sur quickDraw fait apparaitre un som- 

maire ou Ton trouve par exemple "rectangles". Un 
double clic sur ce nom donne la liste de Unites les rou- 
tines se rapportant aux rectangles, etc. 
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flpplelalk 


Blnary-Deni 


Desk Reef. 


Deinces 


Disk Inll. 


Euents 


Fonts 


liilernatiui.fi 


Memory 


Menus 


QuickDraw 


Resources 


Segment Loader 


Serial Dnuei 


Sloridarilfile 


TeHlEdit 


Uerilcai Retrace 


Windows 



Des combinaisons de touches permetlent la lecture des 
elements precedents ou suivant, ainsi que plusieurs 
autres explicitees au tout debut de la base de dunnees, 
dans la rubrique "aardvark" (Entrer la lettre "a"). 



EHTflffm 



II I .11) 

MEntei 



mi 
Click 



i ii.niil Summary Ipart 1 of 31 

Pops up fin line. Type seaicri vIiiiilj. If terminated with <LI 

il matches ivl word only; ShilKEID matches ami word. 

SeH*cls iient moid in entry. 

"types' Mi.' selection. (Uf/shift types whole entryl 

Inrmard to nPHl entry (It, qoes hat kmnrrlsj. 

Jumps to selection s enlry I* | returns). 

Selects Ihe word (ui/H it " types" the Luord loo). 

Jumps tn selei turn, optiontfick relurnslas uiith N] , X ( 



La base de dunnees est editable. 



fl propos de UhnTool.. 



Ouurir une base... 



vTooIBok 
Nom £eme bnaa 



Lire les informations . 



Chercher... 
Chercher \a selection 



WinTools 

Seul produit frnne.ais de 
cette presentation, Win- 
Tools est plus ambitieux; 
non seu lenient il pro- 
pose la TooIBox, mais il 
permet aussi, grace a 
['application "Docteur- 
Base" de cre:er ses 
proprcs bases documen- 
ts ires. 

L'ouverture de eet ac- 
cessoire de bureau fait 
apparaitre un menu (ei- 
cuntre); 1'uptiun "Ouvrir 
une base" permet de 
choisir la TooIBox, four- 
nie avec 2300 fiches, ou 
une autre base. 
Les points forts de ce 
produit se trouvent dans 
la facilite d'editiun d'une 
fiche ou la creation 

d'une nouvelle base. C'est aussi le seul produit a fournir 
les references des notes techniques se rapportant a la 
Toolbox. Ceci ajoute a cela permet une mise a jour fa- 
cile des references. 

Le defaut un peu tnincais vient de son cote pas tres 
pratique, el de sa lenteur; les auteurs, partant d'une idee 
simple, out profite des procedures ereees pour faire un 
until plus general, mais un peu Iourd. II en resulte un 
temps relativement long pour trouver ce que Ton 
cherche. Lapresentation des fiches par urdre aplphabeti- 
que est beaucoup moins judicieuse que par manager, 
eomme c'est le cas pour InsideMac. 
La quantite d'infurmatiuns est correcte, I'aide a I'edition 



Nouoelle fiche 
Et>rfM]is1ret 
Cnregistrer sous.. 



Supp rimer fiche toutdiite 
I i-niii'i Uiinlool 



InsetRect 
InsetRgn 



InsMeniiltem 



nstaller 
InsTime 



PROCEDURE I nstlenu I tern ttheMenu: MenuHand I e , 
itemString: Str255; 

afterl tern: INTEGER), 
TRRP $RS26 
< I M I U-8-? 1 ) 
Technical Notes 57. 8| 
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pratiquemeni absents (possibility de 

COpter des noms pour It's coller dans 
le source). 

Conclusion 

Si vous repugnez a manipuler les vo- 
lumes d'Inside Macintosh, ehoisisso/ 
dans I'ordre InsideMac, WindTool, 
et On Line. 

je conseillerai WindTool a ceux qui 
aiment les qualites in termed iaires, la 
grande facility de creer des bases 
documentaires, ou les produits fran- 
ca is... 

Si vos criteres sont le confort, la rapi- 
dite, et un produit "operationnel" 
d'aide a I'edition et a 1'apprentissage, 
On Line surclasse de tres loin ses 
deux concurrents. 

Si vous hesitez entre InsideMac et 
OnLine, une seule solution, achetez- 
les tous les deux! 

Pour finir, une petite explication des* 
tinee aux perspicaces ayant remar- 
que que WindTool est distrihuc aux 
U.S. A par MacTutor, ce qui semblerait constituer une 
sorle de caution. La raison en est toute simple: Wind- 
Tool est tabrique par une tnaison ayant de tres bonnes 
relations avec "X" d'Apple France, copain de "R", distri- 
buteur specialise dans les produits de developpement, 
lequel entretient d'excellontes relations avec "F", distri- 
butee U.S de MacTutor. Si Ton ajoute que "K" declare 
preferer entre deux produits, celui qui est francais (11 n'a 
qu'a vendre des Goupils!!), la boucle est bouclee... 



Tableau comparatif 

Prog's Companion InsideMac 



WindToo 



Mac 512, +, SE 


X 


X 


X 


Mac II 


X 


X 




Informations 


XX 


xxxxx 


XXX 


Assembleur 


X 






Notes techniques 






X 


Edition de fiches 


X 




xxxxx 


Rapidite 


xxxxx 


XX 


X 


Rfficacite 


xxxxx 


X 


X 


Taille (en K) 


170 


638 


375 


Concepteurs 


S.C'apps 


B.Gallel 


Wind So ft 



Prix USVFrance 



46(1 / <xk> 



65 / 65 



541) / MKI 



Les prix US sont calcules de la maniere suivante: 

(Suggested Retail en US $ )* S + 60 j oil K represente le prix du dollar 

(6,5Frs) multiplie par 1,23 (23% de TVA et droit de douane) + 60Frs de 

transport. 



** A t'heure ou je ttrmine eel article, j'apprends (jus In 
society fruncaise MacBrailt Developpement (Tel 

sans ixicrincdiuire 



les produits de programmation; eeei se traduit pur une 
taitse speclacultiire des prix sur les produits amcernis: 
OnLine, vendu habituellement entre 851) et 95(1 Frs pour 
In version 2 est vendu respectivement 318frs pour les ver- 
sions ? f-> Mar Plus) et et 455 Frs la version 2 (SE/1I). 
t.iglllspeedl'ascal est a 1119 Irs centre ISSOFrs chcz In- 
fotique. 

Cettc societc s'engage en outre, ii assurer le suivi des 
versions et de sa clientele: une occasion rare a ne pas 
muni] tier. 



(-1)47 35 21 32) a decide de vendr, 



LES SOMMAIRES DES NUMEROS DE MAK FAN 



SOMMAIRE N"l 
•Initiation a l'Assembleur • Premiers 

E,is en Pascal* Initiation au Megamax C* 
e List Manager 

SOMMAIRE N"2 

•Editoriai>Potins*BBBBostori*AssemWe 

ur 68000, tutorial* 40* Intelligence Ar- 
tn.iit it-lie- Megamax C« 4D* Pascal 
TML* Excel, Macros* Module. II exemple 

eiommente* 

SOMMAIRE N'3 

•Editorial,* Mac news.-.Logiciels *l.e 
poids des Mac, le choc des images • Dos- 
sier : Unites les noiiveaul.es Mac • l.iglits- 

peed Pascal »Inte]Iigertce Artifiaelle 
• Les macros d 'Excel (initia- 
tion),* Introductions au Lisp "L'entretien 
du mois : J.P POL'Y • Assembleur 68OOO 
tutorial *Programmer en Macintosh ? 
Pourquoi et Comment 

SOMMAIRE N- "'4 

•Editorial.* Infos Press • Recreations al- 

gorithmeiiques • Mac World Expo • 
'esktop publishing ■ Calculs en multi- 
precisions •Introduction & 4eme Dimen- 
sion • BaseGeat • Algorithmes* Macros 
d'Excel.* Le Lisp • L/hooame du mois I- 
Ci. DEHON • Writer Plus* Assemhleur 
68O0O • 1 'elites annonces 



SOMMAIRE N"5 
•Editorial • Le courrier du mois • Les 

infos Press" Lettre d'Amcrique • Mac- 
World Expo «Le Mac II. • Omnis*3 Plus* 
Simul.* Laser Paint* Dessinateur du mois 

• Petites annonces Grahaites* Instructions 
LINK et UNLK • Une horloge dans la 
barre des menus • Recreations algorithmi- 

uues • Montre ou Snblier • Les fichiers 
IN IT 

SOMMAIRE N b 

•Le courrier du mois • Editorial • Soli- 

darSott. "Lettre d'Atnerique» AppleEx- 

po* Mac Architrion* Quark XPress • In- 
troduction a HyperCard • Uiblinl.m 

Developpement HyperCard • Presentation 
de Stella* 4D Charger sur Lien* Petites 
annoncs gratuites • Introduction a ResEdit 
Here partie) • RecreationsAlgorrthmi- 



gramme* voire FKey • Recreations Algo- 
rithmiques le "Jeu de Nim"* MenuFortt.* 
Courrier du mois. 

SOMMAIRE N'8. 

• Editorial • InfoPress • nVir. Autopsie 
d'un virus • Image Studio • Serveurs sur 
Apple Talk. Mac Serve OU Apple-Share 

?• La programmation de ResEdlt •Font/ 

DA Juggler ou SuitCase • Les Disques 
Dura • T.es routines extemes dans 4D • 
Courbcs de Beziers et B-Splines* Recrea- 
tions Algorithmiques. Du chou-lleur au 

dragon* Rubrique Livres. 



Pre; 



Algotithmes:Quicksort.* Les infos 



SOMMAIRE N 7. 

• Editorial • MacWorid Expo * [nfoPress 

* La couleur sur le Macintosh II • Utili- 
l.iires el Acessoires • Carnet d'Adresses 
sous HyperCard • Les disques Durs (lere 
partie} • Voyage au centre de ResEdit 
•Ready,Set,Go ! 4.* Vos mailings sous 
4D* Fontographer 2.3 • FKprint, pro* 



Page 50 



MAK FAN N° 9 




Peut-etre avez-vous rencon- 
tre cette situation dans la- 
quelle un de vos fichiers 
importants sur Excel a vu 
sa taille grandir sans que 
vous y preniez garde? Au moment 
oil vous vous appretez a 
l'enregistrer, un message surgit pour 
vous dire que la disquette est satu- 
r£e, avec les consequences que Ton 
peut imaginer. 

Comment alors supprirner de votre 
disquette un fichier jug£ secondaire 
et effectuer dans le meme temps 
une copie du document courant? 
Pour pallier ce genre de difficult^, il 
faudrait que les documents Excel 
soient moins importants. 

C'est la qu'intervient MacSQZ!, dont 
la premiere fonction sera de reduire 
considerablement la taille de vos fi- 
chiers. Je pese mes mots car, en 
moyenne, le taux de reduction est 
de lordre de 85%. Autrement dit, un 
document Excel (feuille de calcul ou 
feuille macro) qui occupe 100 K 
pourra etre comprint sur 15 K sur 
votre disquette. Quant a ceux qui ont 
{'habitude de faire du menage sur 
leur disque dux, ils appr£cieront de 
pouvoir e'conomiser plusieurs m£- 
gaoctetss (au prix du m£gaoctet, 
c'est toujours inte>essant!). 

La grande force de MacSQZ! est de 
travailler en silence pour vous, exac- 
tement comme s'il n'£tait qu'une 
fonction residence d'Excel. 

II vous suffira de choisir "sauver" 
dans le menu fichier pour require la 
taille d'un document, tandis qu'un 
double clic sur celui-ci l'ouvrira, De 
plus MacSQZ! vous aidera a vous y 
retrouver parmi vos documents. En 
effet tout document compresse aura 
une nouvelle ic6ne, classique a 
Excel, mais plus petite. De meme, si 
vous listez vos fichiers Excel, vous 
pouvez voir que le nom de ceux qui 
auront et6 r£duits ont un point 



Le SQueeZofrene 

L'art de compacter vos fichiers Excel 

Jean-Pierr PEREZ 



d'exclamation. 

L'installation de MacSQZ! ne pose 
pas de probleme, a condition de con- 
naitre les rudiments du Macintosh. 
Des que vous avez la disquette 
MacSQZ! sur votre bureau (finder), 
faites glisser les trois icones 
MacSQZ! Tools, MacSQZ!Init et 
MacSQZ! DA dans le dossier sys- 
tems, de sorte que 1'INIT sera char- 
ged au prochain red£marrage du 
Mac, 

Installez MacSQZIDA dans le menu 
poinme. Cet accessoire vous permet- 
tra de choisir des options. Une op- 
tion vous offre la possibility de prot£- 
ger vos documents, une autre celle 
d'attacher un commentaire au docu- 
ment. 

Noter que cet accessoire ne fonc- 

tionne que lorsqu'Excel est actif. 

II vous faut maintenat booter le mac 

(restart) et ouvrir un document 

Excel. 

Appelez dans le menu pomme 

1'accessoire MacSQZ!Control et choi- 

sissez blank, copy MacSQZ! et c'est 

tout. Sauvez le document Excel et 

constatez le resultat. 

Cet utilitaire est disponible au USA 

pour 80 $ . 11 est assorti d'un manuel. 



Mn(}if(| Settings for 
(8> Current Documenl 
O Session 



M*cS(K' Otmo iqBMieSOil Dm 



.■■ifcrl. 



B 



et d'un fichier "readme" qui apporte 
les quelques rectifications n£ces- 
saires a ce manuel. 
Notons que pour utiliser MacSQZ! 
sous MuItiFinder, il faut maintenir 
enfoncee la touche "option" lors du 
choix de MacSQZIControl. 
Notons au passage qu'il sait reduire 
des documents provenant de 
Lotusl23. 

On pourra seulement regretter qu'il 
n'ait pas son equivalent sur Hyper- 
Card. 

MacConnectionl4 MILL Street, 
MARLOW NH 03456. USA 
1-800/622 5472. FAX 603/446-7791 
Prix :$ 49 US. 



— Squeezing 

;•: Soue as SOZI file 
O Saue as normal file 



r — Current Document Name - 
Work sheell 



— Options 

£3 Blanks 
G Password 
ERnnotatB 
Formula llalues 



ON - mi blank cells mill be mi mi 

in i - Files lint l NOT be password protected 
ON - Prompt for file saue comment 

'•■!>:<!(■ O RpprOHlmate Q Remoue 



Cancel 
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en LightSpeed G 
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La programmation du Mac 
est singuliere par beaucoup 
d'aspects, dont le plus im- 
portant est sans doute la 
generalisation do sun inter- 
face-utilisateur. Celui-ei apparalt 
tres precisement dans les "guide- 
lines" (orientations de programma- 
tion "conseilles" par Apple), ties te 
premier chapitre d 'Inside Macin- 
tosh, et une bonne partie des rou- 
tines de la Toolbox facility son im- 
plementation standard dans routes 
les applications. Cela dit, il est rare 
en programmation qu'a un pro- 
bleme precis il n'existe qu'unfi uni- 
que solution, et ceci s'avere crucial 
dans la conception i.\\wic Interface* 
utilisateur (IU). La strictc application 
des definitions standards d'lU des 
guidelines procure a l'arrivee un pro- 
gramme d'une neutrality effroyable, 
surtout lorsqu'un connait. la puis- 
sance graphique de la machine. 

11 ne s'agit pas ici de denoneer, ni de 
remettre en cause les guidelines: 
celles-ci offrent a l'utilisateur un 
grand nombre de garde-fou anti- 
grisaille. Un exemplc: lorsqu'une 
commande-clavier ne convient pas, 
l'utilisateur eclaire peut facilement 
la modifier avec Res Ed it, mais settle- 
ment si l'application respecte les 
guidelines qui autorisent cette modi- 
fication (en I'occurencc, respecter le 
eontenu de la ressource menu, 
meme modifie). Lorsqu'elles sont 
respectees, outre la garantie quasi* 
certaine que l'application continuera 
a fonctionner avec les futures mises- 
a-jour de systfeme, sinon meme a 
tourner sur les futurs Macs (on voit 



un bon nombre d'applications datanl 
du Mac 128K continucr a fonction- 
ner sur Mac II et sous MultiFinder!), 
l'utilisateur peut prendre un r£el 
pouvoir sur son environnement, par 
l'ajout de FKeys, de DAs, [NITs el 
autres CDHVs, qui peuvcnl radicale- 
ment modifier ITU de l'application. 
Essayez par exemple MacWrite avec 
QuicKeys, sur le clavier etendu... 

11 s'agit plutot d'integrer ces guide- 
lines, en les respectant totalemcnt, 
mais aussi en mettant a profit les tre- 
sors de la Toolbox. Une IU bien pen- 
see peut parfaitement a La fois lais- 
ser la porte ouverte a l'integration 
d elements exterieurs, etre conforme 
aux actions standards, mais aussi 
etre agreable a regarder, et surtout 
conserver Lin large degre 
d'originalite, de pratique et de rapi- 
dite sans pour autant derouter 
l'utilisateur. Voye/. HyperCard: son 
IU est bien meilleure sous MultiFin- 
der el avec un grand eeran, puis- 
qu'autrement la tenet re n'est pas de- 
placable d'une maniere standard et 
que les DAs deviennent "modaux". 
Voyez aussi a quelle vitesse on 
s'habitue a disposer de "visual ef- 
fects"... Ce qui peut passer pour un 
simple gadget touche en realite au 
fondement de cc qu'est le Mac: un 
lieu eommun dans lequel la creativi- 
te peut s'offrir le luxe de 1'inutile en 
le bombard ant "indispensable". 
HyperCard est indispensable, ne se- 
rait-ce que parce qu'on y trouve la li- 
berte de griffonner n'importe quoi 
n'importe oil, et ce n'est encore 
qu'un debut timide: lart de ITU ex- 
plosera lorsque le prix de la RAM 



aura suffisament baisse pour banali- 
961 les 8 megas, et que la vilesse du 
Mac II sera du "has de gamme". 

Nous allons, plus modes tement, 
aborder ici l'aspect IU de la selec- 
tion d'un jeu de caracteres. II existe 
plusieurs method es, chacune offrant 
des degres differents de difficulty de 
mise en ceuvre, par rapport a la qua- 
lite d'lU obtenue. 

I ,,i mclhode la plus simple est celle 
utilisee dans MacWrite: un menu 
"Caracteres" qui se construit tout 
seul grace a la routine AddResMe- 
nu, et un menu "Style" un peu plus 
sophistique, dans lequel le style des 
items donne une idee direete de 
1'effet produit. Les inconvenients IU 
de ce procede sont multiples et evi- 
dents: il faut au moins trois manipu- 
lations pour obtenir une modifica- 
tion radicale font-taille-style, et il est 
impossible de se rendre compte du 
resultat de son choix sans reelle- 
ment effectuer la modification, ope- 
ration qui devient couteuse en 
temps si le texte selectionne est 
long. Par contre, cette methode est 
extremement facile a implemented 
tout est prevu dans le Menu Mana- 
ger, et le code necessaire se reduit a 
quelques lignes. 

Une alternative est de passer par un 
dialogue, dans lequel l'utilisateur 
pourra non seulement selectionner 
tous les parametres font-taille-style, 
mais encore voir immedia lenient le 
resultat de sa selection, ce qui lui 
permeltra de ne quitter le dialogue 
qu'au moment OU il sera certain de 
son choix. De maniere evidente, la 
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qualite IL de ce proeede esl bien 
meilteure que celle des menus; on 
trouve de tels dialogues dans Hyper- 
Card, Word et bien d'aulres applica- 
tions. 

/c Font-Dialog en 
}> trine action... figure ci-contrc 

L'exemple que je vous propose est 
en l.ightspeedt", mais peut fitre 

compile praliquomcnl (el quel ave< 
n'importe quel C Note/ la presence 
sur le dialogue dun champ Text-Edit 
dans leque! l'utilisnlour pourra non 
sen lenient voir immbdialemenl Le 

resultat de ses chcrix, mats aussl en- 

trer directemenl du texte au clavier 
pour 1'essayer de faCQXI plus con- 
crete, ce qui procure bien evidem- 

merit on niveau d'lU maximal. 

Comment constituer la liste des 

fonts? Lorsqu'on desire implementer 
un menu de earaeteres, il sultit de 
t reei un Menullandle par NewMe- 
nu, puis dappeler Add Res Menu 
(myFontMenu, 'K>NT'}, I lelas, lors- 
qu'il s'agit d'une liste et nun d'un 
menu, on louille vainement le cha- 
pitre du List Manager a la recherche 
d'une routine "Add KesLisi" qui 
n'existe pas... on devient flemmard, 
avec la Toolbox! 

Pout eviter davoir a reconslituer line 
lisle des fonts, ce qui est d'autanl 

plus lourd qu'AddResMenu le fait 

tres bien, nous pouvons tout simple- 
men I 1'utiliser quand menu 1 . On 
commence par creer la liste, vide, 
puis un menu temporaire qui ne 
sera jamais insere dans la Menul.ist; 
on appelle AddResMcnu pour que 
la Toolbox remplisse obligeamment 
notre menu d'une magnificjiie liste 
de fonts, classes par ordre alphabcli 
que; ensuite il ne reste plus qua ap- 
peler Conn I Ml terns pour eonnaflre 
le nombre d'items du menu (et done 
de fonts), a creer autant de lignos 
dans la lisle, puis a bonder pour re- 
cuperet 1 un par un les noms des ea- 
racleres dans le menu par Getltem, 
el a les recopier dans la liste. Enfin, 

on appelle DisposeMenu, celui-ci 
ayant tennine son office. I, a selec- 
tion de la laille offre beaucoup de 
possibilities: a priori, n'importe quelle 
valeur comprise entre 6 et 127 inclus, 
y compris Iractionnelle, devrait pou- 
vi>ir etre choisie pour que notre dia- 
logue soit reellemenl "universel". 
Dans notre exom-ple, nous allons 
nous contenter d'in-diquer dans la 
liste, par un symbols "diamond", les 
tailles rbellement existantes du font 
seleclionne, ce qui s'avere suffisanl 
dans la plupart des cas. 
I'reparons la ressource du dialogue. 
Sous ResF.dit, on tree un nouveau fi- 
chier par la commande "New"; avec 
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l.ightspeedt' son mini doil etre iden- 
liqtK' a celui du projet, suftixe en 
.rsrc (si le projel s'appelle FontD- 
log.prnj, le fi chief doit s'appeler 

FontDlog.proj.nsrc). Ensuite, on cree 

un nouveau Ivpe de ressuuree, tou- 
jours par la commande "New", en se- 
lection nan t le Ivpe 'DLOG\ Un 
double-clic dans le dialogue apparu 
ereera automatiquemeni une res- 
source 'D1TL' attachee el laiuvra 
lediteur de DITL. Tou jours avec 
"New", il ne reste qu'a creer les items 
un par un. 



Void la liste des items: 

l-bouton "Ok" 

2-bouton "Annuler" 

3-bOUtOn "standard" (remise a /em 

des check-boxes) 

4-cbeck-box "gras" 

5-check-box "italique" 

b-check-box "soulignb" 

7-check-box "en relief" 

8-check-box "ombre" 

9-check-box "condense" 

H)-check-box "elargi" 

1 1 -user-item (lisle des fonts) 

12-user-item (liste des tailles) 



IDS Dialog item list 'font'' ID = 


2002 from 1 
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item 4---^ 
item 5^ ^ 

Les zones -actives des check-boxes 
sont etendues aussi loin que si 
elles comportaient un norn, et sont 
collees les unes aux autres pour 
qu'il n'y ait pas de "zone morte" 
dans cette partie du dialogue. 
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13-static-text (disabled) (titre du dia- 
logue) 

14-editable-text (disabled) (champ 
TextEdit d'essai du font selectionne) 

Les differents elements de style sont 
geres par des check-boxes, avec en 
plus un bouton "Standard" dont le 
role sera de remettre tout a zero. Ici 
encore, on regrette l'absence d'une 
routine "SetCtlStyle", equivalente au 
SetltemStyle du Menu Manager. So- 
lution pour que le texte des check- 
boxes apparaissent dans le style cor- 
respondant; ne rien mettre dans ce 
texte, et le dessiner nous-meme 
pendant I'update en modifiant le 
TextFace du GrafPort pour chaque 
style desire. On pourrait egalement 
passer par les nouvelles structures 
de TextEdit, qui, a 1'interieur du Dia- 
log Manager, offrent aussi une solu- 
tion pour affecter un font, un style et 
une couleur differents a chaque 
item; le proc£d£ propose ici est 
peut-etre moins "d 'avant-garde", 
mais nettement plus leger. 
Detail importan: a ce stade de la 
preparation de la ressource, la zone 
active d'un check-box ne se limite 
pas au petit carre! II faut que malgre 
l'absence de nom, le rectangle actif 
du check-box couvre reellement la 
zone correspondante, meme si le 
nom n'apparait pas directement 
dans le controle. D'autre part, pour 
eviter toute "zone morte" dans cette 
partie du dialogue, il importe que les 
zones actives soient verticalement 
bien en contact les unes avec les 
autres. 

Oil loger les noms de nos check- 
boxes? J'avais d'abord imagine de 



les laisser dans les controles, et de 
les y recuperer pour les redessiner 
avec le bon style, mais le resultat est 
plutot laid: le nom non-style apparait 
brievement. J'ai finalement opte 
pour une ressource STR# qui porte le 
meme id que notre DLOG. 

Preparons ensuite l'empiacement de 
nos deux listes. Le type "user-item" 
est pratique pour conserver la sou- 
plesse de 1'editeur de DITL de ResE- 
dit, puisqu'on peut librement dispo- 
ser nos elements en visualisant leurs 
futurs rectangles d'occupation. Nous 
n'allons pas utiliser le ProcPtr des 
user-items; pour notre gestion de 
font il est plus facile de passer par le 
ProcPtr general de ModalDialog. En 
effet, le font courant doit etre surveil- 
le finement si Ton veut eviter de voir 
les listes se redessiner dans le font et 
la taille choisis par 1'utilisateur... 

D'autres details sont a surveiller: la 
hauteur des listes doit etre un mul- 
tiple de 16, puisqu'on va y ecrire en 
"system-font" (Chicago 12, pour le- 
quel 16 est la valeur de line-height), 
de maniere a eviter la presence 
d'une demi-cellule a un bout de la 
liste (ceci pourrait etre ameliore: le 
system-font peut parfaitement n'etre 
ni 12 ni Chicago!). D'autre part, notre 
rectangle de "user-item" dcfinit non 
seulement la liste, mais aussi le rec- 
tangle qui doit la circonscrire, sans 
oublier le scroll-bar vertical qui de- 
passe a droite de 15 pixels. Pour que 
la disposition des items dans le dia- 
logue reste agreable sous ResEdit, le 
mieux est de considerer les user- 
item-rects comme definissant le tout, 



et de corriger a la creation de la 
liste. Notre hauteur de user-item 
doit done etre de x cellules visibles 
(8 dans notre exemple) multiplie par 
16, plus 2 pour le rectangle; et sa lar- 
geur incluera done le scroll-bar. 

Restent les deux items-texte: le titre 
du dialogue, un simple static-text, et 
le champ Text-Edit ou Ton pourra es- 
sayer son choix. Le rectangle de ce 
dernier doit etre suffisament large 
pour pouvoir afficher la plus grande 
taille de caractere autorisee dans 
notre liste de taille. Ces deux items- 
texte sont "disabled". 

Dernier de-tail, avant de quitter Re- 
sEdit: ouvrir la ressource 'DLOG', et 
appeler "Display as text" dans le 
menu DLOG. Si vous ne 1'avez pas 
deja fait, mettez "1" dans le champ 
"procID" pour obtenir une fenetre 
de dialogue modal standard, et veri- 
fiez qu'aucune des deux check-boxes 
n'est cochee: le procID 1 n'a pas be- 
soin de "goAwayBox" (case de fer- 
meture), et laisser la fenetre non vi- 
sible dans la ressource permettra de 
la centrer a l'ecran avant de la faire 
apparaitre. D'autre part, sauf bonne 
raison contraire, toutes ces res- 
sources doivent rester purgeables. 
Voila pour la partie ressources; ceux 
qui preferent trouveront a la fin du 
listing le format decompile usuel des 
DLOG, DITL et STR#, mais piongez 
plutot dans les delices de ResEdit... 
Passons maintenant au code. 

L'organigramme est extremement 
simple: apres avoir charge le dialo- 
gue, l'avoir centre et affiche, puis 
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cree el rempli les Listes, on boucle 

autour de ModalDialog tant que 
1'item retourne n'est ni "Ok" ni "An- 
nuler", en repondanl adequalement 
selon I'item clique. Si It? font selee- 
tionne n'est plus le meme, il faut re- 
eonslruire la liste des tallies dispo- 
nibles; et dans tous les cas remettre 
le texte-exemple a jour (puisque 
TOUS les items agissent sur son as- 
pect d'une maniere ou d'une autre). 
Tar ailleurs, on passe a ModalDialog 
l'adresse de notre propre routine 
"filtre d'evenements", qui intercepte- 
ra les clics dans les listes, et permet- 
tra leur affichage en reponse a un 
updateEvt. 

Les seui.s points triviaux se trouvent 
dans cette routine: il imporle de gar- 
der I'cell sur le font courant, pour 
6viter que 1'update n'affiche tout 
dans le font seiectionne! par 
1'ulilisateur (y compris les listes!). On 
n'utiiise pas du tout I'update gere 
par ModalDialog, qui impliquerait 
de ranger dans la D1TL en memoire 
les adresses de routines destinees a 
I'affiehage des user-items. Pour cela, 
a pros avoir gere nous -meme 
I'updateEvt, on le transforme en nul- 
lEvent, et ModalDialog ne le voit ja- 
mais. Lorsqu'un update intervient, 
on remet le "system-font" pour que 
tout soit correctement affiche, et on 
termine en remettant le font selec- 
tions? et en reaffichant le champ 
d'essai. Petit detail: il est preferable 
d'en supprimer le texte, puis de le 
restaurer par SetlText, pour eviter 
un mauvais affichage du caret en 
cas de changemcnt de font on de 
taille. 

Lorsqu'un mouseDown est ainsi 
intercepts, on pent partager le tra- 
vail avec ModalDialog. On teste si le 
clic a eu lieu dans Tune des listes, 
auquel cas on passe la main au List 
Manager pour s'en occuper. Ensuite, 
on teste si le clic a eu lieu dans la 
liste elle-meme ou simplement dans 
le scroll-bar: dans le second cas, il 
n'y a rien d'autre a faire {on trans- 
forme alors le mouseDown en nullE- 
vent), alors que dans le premier il 
faut renvoyer 1'information a la rou- 
tine principale. Pour cela, on place 
le bon numero d'item dans itemllil 
et on renvoie TRUE pour forcer 
I'arret de ModalDialog. Si le clic a 
eu lieu ailleurs, on laisse ModalDia- 
log se di'brouiller avec: on se de- 
charge ainsi de la gestion du champ 
Text-Edit, des check-boxes et des 
boutons, c'est ModalDialog qui ap- 
pellera TrackControi en cas de be- 
soin, et nous renverra le numero 
d'item. 

Les autoKeys sunt filtres d'une facon 
simple: on verifie que la louche 
<commande> n'etait pas enfoncce, 



auquel cas on les annihile feroce- 
ment pour eviter la repetition intem- 
pestive d'une eommande-clavier. Les 
keyDowns sont geres de la maniere 
suivante: s'il s'agit de la touche 
<enter>, on place le numero d'item 
du bouton "Ok" dans iternHit et on 
force I'arret immediat de ModalDia- 
log. La touche <return>, par contre, 
est laissee comme toutes les autres a 
ModalDialog, ce qui permet de 
1'utiliser dans le champ d'essai de 
texte. Avant de passer la main a Mo- 
dalDialog, on verifie la touche 
<commande>, et on execute even- 
tuellement les equivalents standards 
du menu Edition sur le texte du 
champ Text -Ed it, par Dlgt'ut, 
DlgC'opy ou DlgPaste. 

On ignore purement et simplement 
les autres evenements, en laissanl 
royalementModalDialog se debrouil- 
ler avec. II est a noter que Modal- 
Dialog appelle GetNextEvent avec 
un evenlMask qui cxclue le diskEvt 
(insertion d'une disquette), ce qui 
pourrait facilement etre eompensi'> 
ici. 

Dans tous les cas, au retour de Mo- 
dalDialog, itemHil contient le nume- 
ro d'item clique: il ne reste plus qu'a 
positionner les controles el a passer 
a InvalKeet le rectangle du champ 
Text-Edit, ce qui provoque un upda- 
teEvt et le rappel de notre routine- 
filtre qui le reaffichera dans le nou- 
veau font-laille-style. Si iternHit con- 
tient "Ok" on "Annuler", on libere la 
memoire des listes et du dialogue, et 
s'il s'agit vraiment d'un "Ok", on re- 
copie le font-taille-style final dans les 
variables passees par la routine ap- 
pelante, qui en fera ce que bon lui 
semblera, par exemple les appliquer 
au GrafPort courant; mais ce dialo- 
gue pourrait aussi servir a preparer 
des "feuilles de style" a la Word, 
sans directement agir sur le texte du 
document en cours. 

D'autres presentations du dialogue 
sont possibles. II serait facile de rem- 
placer les deux listes par des menus 
pop-up, seuls restant affiches le nom 
du font courant et sa taille. On pour- 
rait agreablement ajouter un second 
champ Text-Edit pour permettre la 
saisie d'une taille qui n'est pas pre- 
sente dans la liste. Egalement, pour 
que le parametrage soit complet, il 
faudrait tester la presence de Color- 
QuickDraw, et en cas permettre 
aussi la selection d'une couleur pour 
le texte. 

On peut assez facilement transfor- 
mer ce code pour ne pas utiliser de 
variables statiques: le dialog-refCon 
peut pointer sur une structure qui 
contient les diflerents handles et les 



valeurs courantes de la selection 
font-taille-style, ce qui permet de les 
recuperer dans toutes les fonctions 
(qui toutes recoivent le DialogPtr en 
parametre) par un simple CetWRef- 
Con. Pour un DA, limite a 32K de 
code, il est possible de laisser le 
code appelant calculer I'id de nos 
ressources, et 1'ajouter aux para- 
metres passes: ceci permet de com- 
piler ce code separement et facilite 
son implementation eventuelle 
comme procedure externe. 



Pour obtcnir les pro- 
grammes de ce numero 
commandez la dis- 
quette MAK FAN N°9, 
au prix de 50FF. 
MAK FAN BP 33 
94471 Boissy cedex. 
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FonlDialog 
O Benoi't Widemann 
version 1.0 du 28 juillet 88 
LightspeedC v2.13 

FontDialog permel de selectionner un |eu de caracteres. 
sa taille et son style. Le dialogue contient un champ 
TextEdit dans lequel I'utilisateur peut entrer du texte, 
pour voir le resultat de son choix. <Return> provoque 
un passage a la ligne dans ce champ, mais <enter> est 
pris dans le sens standard (equivalent a 'ok'). 

Exemple d'appel en passant les valeurs du GrafPort courant: 

short theFont, theSize, theStyle; 

theFont ■ thePorl->txFont; 

theSize ■ thePort->txSize; 

theStyle ■ (short) the Port- >txFace; 

it (tontDialog(StheFont, StheSize. StheStyle)) { 

TextFont(theFont); 

TextSize(theSize); 

TextFace((Style)theStyle); 

I 

FontDialog retourne TRUE si I'utilisateur a clique sur OK, 
et FALSE sur Cancel; les trois variables passees 
conliendront dans le premier cas les valeurs choisies. 
Attention, le type de theStyle doit bien etre short, et non 
Style qui est un char. 



V 



^include "QuickDraw. h" 
ffmclude "MacTypes.h" 
^include "EventMgr.h" 
^include "DialogMgr.h" 
#include "TextEdit. h" 
#mclude "ListMgr.h" 
#include "Menutvlgr.h" 

#detine nil OL 
#detine ENTER 3 
#defme RSRCJD 2002 
enum { 

FD OK = 1,FD CANCEL, 

FD STANDARD, 



,'" la touche <enter> '. 

/* DLOG & STR# ressource-id ", 

/' font dialog item list ". 

'" boutons ", 

/' bouton 'i 

FD BOLD, FD ITALIC. FD UNDERLINE.FD OUTLINE, 
FD SHADOW, FD CONDENSE. FD EXTEND. /'check-boxes'/ 

FD FONTLIST, FD SIZELIST, /' les deux listes \ 

FD TITLE, /• le titre (disabled! ', 

FD SAMPLE /' le champ TE (disabled) ', 



^define REALSI2EMARK 0xD7 
#detine SIZENUM 10 



'" '0' pour marquer les tallies existantes V 
,<" nb d'elemenls du tableau suivani "/ 



static short availSizef] =(9, 10. 12, 14, 1S 

static ListHandle fontList, sizeList 

static Rect fontListRect: 

static Rect sizeListRect; 

static Rect to nil tern Rect; 

static Rect sizeltemRect; 

static Rect sampleBox; 

static shod theFont, theSize. theStyle; 



20.24, 36,48, 72 J; 

/" les listes '/ 

/' rectangles des listes, '/ 

C sans les scroll-bars '/ 

/" rectangles user-items, '/ 

I* qui inclueni les scroll-bars V 

/' text-sample rect '/ 

/' valeurs courantes '/ 



static Str255 aFontName. aSizeSlr, sampleStr, titleStr; 

static TEHandle dText; /' dialog TERec V 



/* filtre pour ModalDiaiog* / 



pascal Boolean userFilterjdp, theEvent, itemHit) 

DialogPtrdp; 

EventRecord * theEvent; 

short * itemHit; 
{ 

RgnHandle rg; 

Point clickLoc; 

Rect r; 

Str255 s; 

Rect itemRect: 

short i, itemType; 

Handle item Handle; 

unsigned chare; 

Boolean result; 



switch (theEvent- >what] { 
case updateEvt: { 
BeginUpdate(dp); 
EraseRect{&dp>portRect); 
DrawControls(dp); 
outLine{dp. FD OK); 
FrameRect(&sizeltemRect); 
FrameRect(SfontltemRect); 
SystemFont(dp); 
setDTextfdp, FD. TITLE, titleStr]; 



/* dessine les controles '/ 

/' entoure le bouton 'ok' V 

/* dessine les rectangles 'I 

I* qui circonscrient les listes'/ 

/* me! le system lont 'I 

t* pour le titre et les listes */ 



/' passe le dialog visRgn V 
f pour dessiner les listes 'I 



rg = dp->visRgn; 

LUpdatefrg, fontList): 

LUpdatefrg. sizeList); 

for(i=FD BOLD;i<=FD EXTEND; i++) { /* atficher nom des '/ 

TextFaced « (i-FD BOLD)); .<" styles, ds le bon style: '/ 

GetDltemfdp, i, &itemType, SitemHandle, SitemRect); 

itemRect. left +■ 15; '" soustrait le check-box '/ 

if (i == FD_OUTLINE || i == FD SHADOW) ( 
OffsetRecU&itemRect, 1.-1); 

} 

GetlndStringfs, RSRC ID, i-FD STANDARD); /' STR# V 

TextBox(s+1, (long}s[0], SitemRect, teJustLett); 
I 
getDText(dp,FD SAMPLE, sampleStr); /"sauve texte courant '/ 

setDText(dp, FD SAMPLE, "\p"); /* on le supprime '/ 

setCurrentFont(); /' remet le font selectionne 7 

setDText(dp, FD SAMPLE, sampleStr): f redessine texte V 

SellText(dp, FD SAMPLE, 32767. 32767);/' selectionne a la fin '/ 

EndUpdate(dp); 
theEvent- >what = nullEvent; C transforme en nullEvent '/ 

retum(false); 
break; 
} 

case mouseDown:{ 
clickLoc = theEvenl->where; 
GlobalToLocalf&clickLoc]: 
if (PtlnRect(c!ickLoc, & font Item Rect)) { r die dans font-list*/' 

setSystemFont(dp); /' met le system font '/ 

result = LCIick(clickLoc, 0. fontList); ;' passe die au ListMgr '/ 
i dans une cellule, 
'itemHit = 
FD FONTLIST; 



it (PtlnRect(clickLocSfontListRect)H 
V 



/' le font a peut-etre change "/ 
return(true); 
) else { 
theEvent- >what = nullEvent; 



/' stoppe ModalDiaiog '/ 

/' e'etait le scroll bar: "/ 

;' transforme en nullEvent '/ 



) else if (PtlnRectfclickLoc, 
SsizeltemRect)) { 
setSyslemFont(dp); 
result = LCIickfcfickLoc, 0. sizeList); 
if (PtlnRectfclickLoc, &sizeListRect)) ( 
'itemHit = FD SIZELIST; 
return(true); 
}else { 



' idem pour autre liste "/ 
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theEvenl->what ■ nullEvent; 



setCurrentFont(); 

return(false); 

break; 
} 
case autoKey:{ 

if ((theEvent->modifiers & cmdKey) ! 
theEvent->what = nullEvent: 

) 

return(false); 

break; 



case keyDown:| 

c = the Event-> message & charCodeMask; 
lf(c==ENTER){ 

'ilemHit = FD OK; 
return(true); 
) else if ((theEvent->modifiers 
S cmdKey} I- 0}{ 
switch (c){ 
case 'x': 
case X:\ 
DlgCutjdp): 
break; 
) 

case 'c': 
case 'C':( 
DlgCopy(dp); 
break; 
} 

case V; 
case V;| 
DlgPaste(dp); 
break; 
) 

default:) 
break; 



/* remet le font courant '/ 
/' laisse MD faire le reste '/ 



0) ( /" cmd entoncee: "I 
l" transforme en nullEvenl '/ 



I* couper "; 



/' copier */ 



GetFontlnfo(Sf); 

height = f.ascent + f.descent + f. leading; 
("dText).txStze = 12; 
(*"dText}.txFont ■ dp->txFont; 
("dTextj.txFace ■ 0: 
("dText).fontAscent = f.ascent; 
(**dText).lineHeight ■ height; 



/" idem lorsqu'on remet le font selectionne '/ 



I' recupere details du font */ 
remplit champs du TERec '/ 



setCurrentFont|) 



Fonllnfo f: 
short height: 



TextFont(theFont); 

TextSize(theSize); 

TextFace((Style)theStyle); 

GetFontlnfo(Stf); 

height ■ f.ascent + f.descent + f. leading; 

;"dText).txSize = theSize; 

;**dText).txFont = theFont; 

dTextl.txFace = (char)theStyle; 
'"dTexl).fontAscent = f.ascent; 
"dTextj.lineHeight ■ height: 



/" centrer. puis atficher le dialogue. 

La ressource DLOG ne doit pas etre checkee Visible'. 
Attention: dans un DA, on ne peut pas acceder 

directement de cette facon aux ODGIobals comme 

screenBits. bounds '/ 



centerDialog(dp) 
DialogPtrdp; 



Rect r; 
short h. v; 



theEvent->what = nullEvent: 
return(false); 



/" transforme en nullEvent '/ 
indique a MD de continuer '; 



} else { 
return(talse); 



' MD s'occupe des TEKeys du champ TexlEdit l i 



r = dp->portRect; 

h = (screenBits. bounds. right 12) - {(r.right - r.left)/2); 

v = (screenBits. bounds. bottom 12) - ((r.boltom - r.top)/2): 

MoveWindow((WindowPir)dp, h,v, false); 

ShowWindow((WindowPtr]dp); 



defaults 

return(false): 
break; 



/' lorsqu'on veut remettre le system-font, il faut aussi 
corriger les champs du TERec: lous les lext-items 
du dialogue partagent le meme TERec. 
Cette routine n'est pas parfaite: la taille du system-font 
peut parfaitement ne pas etre 12! "7 



setSystemFont(dp) 
DialogPtr dp; 

{ 

Fontlnfo f: 
short height; 
TextFont(O); 
TextSize(12); 
TextFace(O): 



f remet le font, V 

(' taille. '/ 

/' et style du GrafPort V 



/* entourer un item dans un dialogue 

Le port doit etre deja fixe sur le DialogPtr 7 

outLine(dp. item) 

DialogPtrdp; 

short item; 
( 

Handle itemHandle; 

short itemType; 

Rect r; 

GetDltern (dp, item, SitemType. SilemHandle, &r); 

PenSize(3,3}; 

lnsetRect(8,r,-4,-4); 

FrameRoundRect(&r,16.16); 

PenSize(1.1); 



/* mettre une valeur booleenne dans un item de dialogue 
Ceci peut etre utilise sur les check-boxes et les radios ctl 7 
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setDCtl (dp, item, value) 
Dialog Ptr dp; 
short item; 
Boolean value; 



{ 



Handle itemHandle; 
short itemType; 
Rect itemRect; 

GetDltem (dp, item. SitemType, SitemHandle, SitemRect); 
SetCtlValue (itemHandle. (short) value); 



/* mettre une string dans un text-item (static ou edit) 7 

setDText (dp. item, str) 

Dialog Ptr dp; 

short item; 

Str255 str: 
{ 

Handle itemHandle; 

short itemType; 

Rect itemRect; 

GetDltem (dp, item, SitemType, SitemHandle. SitemRect): 
SetlText (itemHandle, str); 
) 

/' recuperer une string dans un text-item (static ou edit) "J 

getDText (dp. item, str) 

DialogPtrdp; 

short item; 

Str255 str; 
( 

Handle itemHandle; 

short itemType; 

Rect itemRect; 

GetDltem (dp. item, SitemType, SitemHandle, SitemRect); 
GetlText (itemHandle, str): 



I* ' 



routine principals 



fontDialog(oldFont. oldSize, oldStyle) 

short * oldFont: 

short * oldSize: 

short * oldStyle; 
r Style est normalement un char, la routine appelante 
doit en tenir compte V 
( 

GrafPtr savePort; 

DialogPtr dp; 

short itemType, i, j, count, item, tempSize, lastFont; 

Rect r; 

Point p; 

Str255 s: 

Handle itemHandle; 

MenuHandle dumbMenu; 

Cell theFontCell, theSizeCell; 

long dumb; 

GetPort(SsavePort): p sauve le port courant */ 

dp = GetNewDialog(RSRC_ ID, nil. -1L); /' charge le dialogue V 

centerDialog(dp); p | e centre a I'ecran '/ 

SetPort(dp); 

dText = ((DialogPeek)dp)->textH; ," recupere le TEHandle 7 

theFont = 'oldFont; ;' initialise les valeurs courantes '/ 



/* soustrait le scroll-bar V 
nitialise list dataBounds rect 7 



f taille des cellules ' 



theSize - 'oldSize; 

theStyle = 'oldStyle; 

GetDltem (dp. FD SIZELIST, SitemType, 

SitemHandle, SsizeltemRect); 
sizeListRect ■ sizeltemRect; 
lnsetRect(SsizeListRect, 1,1); 
sizeListRect.right -= 15; 
r.left = 0; 
r.top = 0; 
r. right = 1 ; 
r.bottom = 0; 

p.h = sizeListRect. right-sizeListRect. left 
p.v= 16; 
sizeList = LNew(SsizeListRecl. Sr, 

p, 0, dp, false.false. false, true); 
("sizeList). selFlags - lOnlyOne; . "selectionne 1 cellule a la foisV 

theSizeCell.fi = theSizeCell.v = 0; 
(void)LAddRow(l . 1 00, sizeList); /'cree une ligne vide par defaut '/ 

GetDltem (dp, FD FONTLIST, SitemType, SitemHandle, 

SfontltemRect); 

fontListRect - fontltemRect; 

InsetRecttStontListRect. 1.1); /* idem pour la liste des fonts V 

ontListRect.right -= 15; 

r.left = 0: 

r.top = 0; 

r.right = 1; 

r.bottom ■ 0; 

p.h - fontListRect, right-fontListRect. left; 

p.v = 16; 

fontList = LNewfSfontListRect, Sr, p, 0, dp, false, false 

false, true); 

("fontList). selFlags = lOnlyOne; 

dumbMenu - NewMenu(12345, "\p") 

AddResMenu(dumbMenu, 'FONT'); 

count = CountMltems(dumbMenu): 

(void)LAddRow(count, 0, fontList); 



" dataBounds rect ' 



/' cree menu temporaire "/ 

r ajoute les fonts disponibles 7 

I* les compte 7 

ajoute autant de lignes ds la liste 



theFontCell,h = 0; 
for (i=1; k=count; i++) 

theFontCell.v = i-1; 

Getltem(dumbMenu, i. s); 

LSetCell(s+1, (short)s[0], 
theFontCell. fontList); 



I* pour chaque font: 7 
.-" recupere le nom '/ 
I'aioute dans la liste 7 



f plusbesoindu menu V 
f quel lont courant 7 7 



DisposeMenu(durnbMenu): 

GetFontNameflheFont, aFontName): 

theFontCell.v = 0; 

if (LSearch(aFonlName+1, (short)aFontName[0], nil. StheFontCell, 

fontList)) { /* on |e cherche dans la liste V 

LSetSelect(true, theFontCell. fontList); p le selectionne 7 

LAutoScroll(fontList); p affiche la selection V 

] 

getDTexlfdp. FD TITLE. titleStr); /' recupere le litre du dlog 7 

GetDltem (dp. FD SAMPLE, SitemType, 

SitemHandle, SsampleBox); P et rectangle du champ TE 7 

item = 3; P initialise V 

lastFont > 20000: /'valeur bidon lorce la reconstruction de la lisle tallies 7 



/" la boucle commence ici 7 

while (item > FD CANCEL) | 

setDCtlfdp, FD_ BOLD, theStyle S bold); P regie checkBoxes ', 

setDCtlfdp, FD ITALIC, theSlyle S italic); 
setDCtl(dp, FD UNDERLINE, theStyle S underline); 
setDCtlfdp, FD OUTLINE, theStyle S outline); 
setDCtlfdp, FD SHADOW, theStyle S shadow); 
setDCtlfdp, FD CONDENSE, theStyle & condense}; 
setDCtlfdp, FD EXTEND. theStyle S extend); 
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if (theFont != lastFont) { I* le font a change, -> reconstnjire '; 

LDoDrawffalse, sizeList); /' la liste des failles: V 

LDelRow(0, 0, sizeList): ■ t efface tout V 

theSizeCell.v - 0; 
for (i=0: kSIZENUM; i++) ( 

tempSize a availSize[i]; 

s[0] = 0: f marque les "vraies" tallies 'I 

s[++s[0]] » (RealFont(tfieFont, tempSize)) ? 
REALSIZEMARK : ": l' espace dur (option-espacel */ 

(void)LAddRow(l. 100. sizeList): 

NumToStnng((long)tempSize. aSizeStr); 

for(j.0;j<aSizeStr[0];j++) ( 
s[++s[0]] = aSizeStr[j+1]; 

) 

LSetCell(s+1, (short)s[0). IheSizeOell. sizeList): 

theSizeCell.u+t: 



LDoDraw(true. SizeList); 
InvalRect(SsizeltemRect); 
lastFont = theFont; 



" redessme la liste ' 



NumToS1nng((long)theSize. aSizeStr); ■<" idem avec taille courante V 

s[0] = 0: 

s[*ts[0]] - (RealFontltheFont. theSize)) ? REALSIZEMARK : ' '; 

tor(H>;j<aSizeStr[0];j++)) 

s[t+s|0]] = aSizeStrfl+1); 
I 

theSizeCell.v - 0, 
if (LGetSelect(true, StheSizeCel! 

SizeList)) { '' deseleclionne la precedente '/ 

LSetSelect(talse, theSizeCell. sizeList); 

1 

theSizeCell.v . 0: 

if (LSearch(s+1. (short)s[0|. nil, StheSizeCell, 

sizeList)) { '" cherche la taille courante dans la liste '/ 

LSetSelectftrue. theSizeCell, sizeList); /' la selectionne '.< 

LAutoScroll(sizeList); P affiche la selection '/ 

} 

LDoDraw(true. fontList); 

(void)ModalDialog(userFilter, Sitem); f passe le userFilter 't 

if(item>FD CANCEL) 



InvalRect(SsampleBox) 
switch (item) { 

caseFD STANDARD:) 

theStyie-0; 

break; 



' redessine le champ TE ". 



' ill". rid Ilu I li': I H ■! :f- hn>,::. 



case FD FONTLIST: ( 

tlteFonlCell.v = 0; 

(void)LGetSelect(true. StheFontCell, 
fontList); /" recupere la cellule selectionnee V 

i= 100; 

LGetCell(aFontName+1 , Si, tfieFontCell. 

fontList) ; ' recupere le nom */ 

aFontName[0] = i; 

GetFNum(aFontName, StheFont); /' et numero du font "/ 

break; 
1 
case FD SIZELIST:) 

theSizeCell.v ■ 0; 

(void)LGetSelect(true. StheSizeCell, 
sizeList) ; <" recupere la cellule selectionnee 'I 

i = 100; 

LGetCellfaSizeStr, Si, theSizeCell, 
sizeList); /" recupere la string '/ 

aSizeStr[01 = i-1 ; f supprime marque ou espace dur '/ 

StringToNumiaSizeStr, Sdumb); '" recupere la taille ': 

theSize = (shoh)dumb; 

break: 



default:) 

if (item<FD_ FONTLIST)) 
item -= FD BOLD; 
item = 1 « item; 
theStyle A = item; 



' restent les check-boxes: "/ 
/' soustrait I'oftset V 
/' met a 1 le bon bit 'I 

I' XOR (inversion du bit) */ 



item = 1 000: /' remel une valeur bidon pour continuer V 
break; 



I* fin do la boucle V 



LDispose(fontList); 
LDispose(sizeList); 
DisposDialog(dp): 
SetPort(savePort); 
if (item == FD OK) ) 

'oldFont = theFont; 

'oldSize ■ theSize; 

'oldStyle = theStyle 

return(true); 
I 
return(false); 



/* fin du dialog ') 
/' restaure le port 7 



■'• repasse les valeurs a I'appelant ' 



I' 'ok' a ete clique '< 
/' 'annulet a ete clique '< 



Listing ressources (decompile par REdit) 



- v 



Type DITL 

,2002 (32) 
15 

• 1 

Btnltem Enabled 

21 1 261 231 321 

OK 

' 2 

Btnltem Enabled 

176 261 196 321 

Annulet 

• 3 

Btnltem Enabled 

32 256 52 324 
slandard 

' 4 

Chkltem Enabled 

54 248 70 336 

• 5 

Chkltem Enabled 
70 248 86 336 

• 6 

Chkltem Enabled 

86 248 102 336 

■ 7 

Chkltem Enabled 

102 248 118 336 

' 8 

Chkllem Enabled 

118248 134 336 

' 9 

Chkllem Enabled 

134 248 150 336 

' 10 

Chkllem Enabled 

150 248 166 336 

" 11 

Userltern Enabled 

33 7 163 166 



• 12 

Userltern Enabled 
33 182 163 235 

• 13 

StatText Disabled 
7 55 23 271 
Caractere. taille, style: 

" 14 

EditText Disabled 
173 10 238 232 
EXEMPLE DE TEXTE dans 
le caractere selecfionne\0D 

Type DLOG 

,2002 (32) 
46 46 293 390 
Invisible 1 NoGoAway 
2002 
New Dialog 

Type STR# 

.2002 (32) 

• 1 
gtas 

• 2 
italique 

■ 3 
souligne 

• 4 

en relief 

• 5 
ombre 

■ 6 
condense 

• 7 
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De hi plus ordinaire dis- 
kette de 4U0K au super 
disque dur de 800 
Megas, il n'y a aucun 
exempie qu'ils n'arrive&t 
quelque jour a saturation, en general 
bien avant les previsions les plus 
pessimistes. Les techniques de com- 
pression peuvent aiors retard er 
1'echeance maudite, certaines de 
facon tres efficace. Le benefice de 
['utilisation de COS techniques 
s'etend egalement au cout du trans- 
fert de gros fichiers entre serveurs el 
micros, 

II y a quelques annees, je m'ali- 
mentais en programmerie CP/M au- 
pres d'un centre serveur Multics 
americain, qui presentait sur bien 
d'autres I'avantage d'une quasi gra- 
tuity d'acees. Ce centre, a u quel 
j'aecedais en X25, disposait bien evi- 
demment, sous Multics, de tous les 
protocoles de transfer t de fichiers bi- 
naires sur reseau commute, a com- 
mencer par XModem, et a finir par 
Kermit, en passant par tous les pro- 
duits de substitution inventes par 
des obscurs et des sans grade qui 
n'hesitaient pas a reinventer la roue 
tous les dimanches, sans se soucier 
de [a (aire ovale. 

Puis vint Macintosh, lit mon centre 
Multics d'ouvrir incontinent Line bi- 
bliotheque de produits specifiques. 
Mais comma a cette epoque la pro- 
grammation des protocoles standard 
sur Macintosh n'avait pas encore 
donne sa pleine mesure, et qu'on at- 
tendait toujours le logiciel de tele- 
communication definitif pour Lundi 



le Stuffit nouveau 



est arrive... 



Bernard EFFEL 



proch.iin, les responsables du centre 
avaienl fiinHexe tous les fichiers 

Mac, et le transfert se limitait a Lin 
simple listage/sauvetage sous Mac- 
Terminal, parfaitement sur des lors 
que I'acces etait X25 de bout en bout. 
Evideniment, BinHex ajoutait 33% 
de volume au fichier, penalisation 
qui frappait aussi bien le centre ser- 
veur dans sa capacite de stockage, 
que ses clients qui vovaient s'ajoutei 
33% theoriques au temps de trans- 
fer!. Ces clients eonneetes a 1200 bps 
s'estimaient cependant heureux du 
debit pratique de 800 bps quant ils le 
comparaient aux 200 bps pratiques 
des X, Y, ZMod em a vec leu rs 
acquirements d'une seconde tous 
les 100 caracteres (il fallait bien tra- 
verser 1'Atlantique). 

Puis vint Harry Chesley et son pro- 
gramme Packlt qui pouvait ramener 
un fichier Macintosh a 66% de sa 
taille (dans les cas favorables). 
Quelle aubaine! Evidemment, il fal- 
lait "unPacklter" apres avoir "unBin- 
Hexe". Avec cependant I'avantage 
d'une compaction multiple de plu- 
sieurs lichiers en un seul. les appli- 
cations elaient ainsi souvent aeeom- 
pagnees de Ieur documentation. J'ai 
ainsi recti pen? I'une des premieres 
versions correctes de KedKyder avec 
son inenarrablc manuel. 



Packit, dans sa derniere version, 
etait un produit tres "propre", tres 
sur, avec une animation graphique 
eleganle et un interface utilisaleur 
scrupuleusemenl aux normes. II of- 
frait, en prime, une possibility de 



cryplage, qui promcilait bien des de- 
boircs aux programmeurs a la me- 
moire courle. Outre les vertus qu'il 
presentait en matiere deeonomie de 

couts de transmission, il permettait 

de recuperer 33% du volume de stoc- 
kage occupe par des lichiers pen mi 
phis utilises. Une boulfee d'oxygene 
pour les utilisateurs toujours a court 
de disquettes! J'ai compacts' avec 
rage 4 volumes des InfoMac digests, 
2 des Delphi Mac Digests, 3 des 
UseNet Mac Digests sur une di/.aine 
ile disquettes. lit puis un jour de 
P'87, j'ai eu envie de recuperer un 
petit fichier qui malheureusemen! 
netait pas le premier dans la liste 
d'archivage. lit j'ai cent ii Harry 
Chesley d'ajouter pour 1'amour du 
ciel un gestionnaire d archives qui 
permette d'extraire un fichier donne 
de son conteneur sans avoir a de- 
compacter tous eeux qui le prece- 
dent. I. a reponse est arrive*. 1 quel- 
ques jours apres. Sen lenient elle 
n'est pas venue di larry Chesley, 

mais de Raymond Lau, qui venait de 

proposer Stuffit, un nouveau produit 
offert en shareware, totalement cai- 
que (a 1'interlaee utilisateur pres!) 
sur le compacteur ARC 5.12 
qu'utilisaienl deja avec profit les pro- 
grammeurs d'une autre galaxie (...el 
enriehissons-nous de ftOS mutuelles 
differences...). Paradoxalemenl, et 
COmme pour un passage symbnlique 
de relais, Stuffit el sa documentation 
elaient soigneu semen I Pack I les et 
Binllexes, Surprise! Le suivi graphi- 
que nelail pas tres attirant. Mais 
surprise dautre mesure! ha compac- 
tion /decom-paction etait 50% plus 
rapide. 20$ a 100% plus efficace, et 
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la gestion des archives etait biert la! 

El i'n prime. If produit avaiait les fi- 

chiers I'acklt, el les ficliiers Binllex, 
Si pcul-elre bientot les ficliiers .arc 
de l.i galaxie que voua save/.. Et le 

irvptage n Viva it pas ete oublie! 

Personne ne s'y est trompg, et en 
I'eapace de six mois la substitution 
d'un produit par ['autre s'est effec- 
tuee de fa eon quasi totale, qui 
prouve bien qu'il n'est pas de bon 
produit dont I'habitude d'utilisation 
nt' puisse st 1 perdre an benefice d'un 
meilleur. 

La version 1.40 de Stufflt, qui vient 
d .1 1 1 i\ t-r. retiendra notre attention. 
Noil pas par les ameliorations 
qu'elle comporte par rapport a la 
version 1.31 que j'utilise depuis sa 
partition, mais a cause des utilitaires 
dont elle est assortie. 

Stufflt 

Voyons tout d'abord 1 'application 
Stufflt elle-meme. Son role consists 
a assurer la gestion de ficliiers d'ar- 
chives, en ecriture ou en lecture, 
C'est a dire en creation ou en extrac- 
tion. 

Au lancement, la barre de menus In- 
staller par ['application propose les 
menus suivants: 

[ * File Edit Report Other Options "|" 

Le menu File comporte les options 
New Archive et Open Archive qui 
permetlent de creer un nouveau fi- 

chier d 'archives ou d'acc&ler a un B- 

chier deja existant pour le completer 
ou en extraire tout ou partie de son 
content!. Apres selection de luption 

et reponse aux boites de dialogue 
corrcspondantes, on accede a one 
fenetre qui liste les ficliiers archives 
OU en cours d'archivage, avec des in- 
dications sur le taux de compaction. 
Le fichier d'archive Stuffit.doc.sit de 
la fig. I eontient les qualre ficliiers de 
la fig. 2. La selection du second de 
ces ficliiers valide ['option Extract 
dont la selection a nouveau conduit 
a une nouvelle fenetre (fig. 3) qui se 
passe de commentaires. Remar- 
quons au passage (fig. 2) que les troi- 
sieme el quatrieme iiehiers, qui sont 
iAcus versions d'un menie te\te. 
Tune sous MaeWrite, I'autre sous 
Word ne se compactent pas avec la 
meme effieacite. Remarquons egale 
nient 1'option c qui permet d'ajouter 
un commentaire a un ficbier archive 
(ou de lire un commentaire deja 
existant). 

le ninsistcrai pas davanlage sur le 
fonctionnemenl du produit, sinon 
pour remarquer que la plelhore de 



lllllll... II J.. llJl-ll-ti- 

I Multiple nun..* 



|'<a -stufflt- 



0< suutti iAim 


r 


D MttMM Help f)li 




D MuflM,il»i:.*U 




D mil 'Unto ffnsH,«lt 




D ill lime*.- $FW«i tttt'i ... 




D iitiim«vtinuimii ... 




[J mHiilfl*/uieu»flr BH ... 


" 



62k In tile, 
EHMIHI i a 1 




tiles in in i^M'ii 



I I6?kl 

U (Dk nrO%i 

I (A2k ot 100%) 





|qa -stufflt- 1 






D Util/fluto llnslt.sit 


" 


c=Hn2CI 


[ Moi « 1 




I Ull.H, ] 






[ Open ] 




[ Cancel ] 











fenelres pent derouter le nouveau 

verm, d'autant qu'une fois selection- 
nee I'option save, une nouvelle et 
derniere fenetre permet de suivre la 
marche du processus de compaction 
(ou de decompaction). On notera 
que les branches ressources et data 



sont traitees separement, et que 

ralgo-rithme utilise pour l'une n'est 

pas neeessairement utilise pour 

I'autre. Le ou les fichiers extraits se 

retrouvent la ou on a choisi de les 

mettre. 

II est egalement possible de desig- 



:[" "I- 



Stufflt.doc. sit 



Tupe Creo 



.^ i :.- ^l":' 1 "--! 



Stufflt 1.31 User's Guide WORD riflCfl 26402 23S 

Stufflt I.40B User's Guid WORD MflCR 63113 338 

Uti I i ties/User's Guide WORD MflCR 24052 34$ 

Utilities/User's Guide. Ms 1JDBN hSWD 24576 49£ 



,-r 
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archive size, 135k decompressed 



(Bdd... | [j;hjh»l„| lri<ii«Ki...l (TTilal [Rename I 
( Multiple fldd.,. 1 fF) 



HD20: 1706k 



Septembre 1988 



Page 61 



ner textuellement les fichiers a ar- 
chiver ou a extraire, en utilisant tous 
les artifices de type wildcard pour 
designer les fichiers d'unc meme fa- 
mille. 

Les methodes de compression utili- 
sees comprennent bien evidemment 
les algorlthmes de Huffmann et de 
Lempel-Ziv Welch. La connaissance 
de ces techniques n'est d'aucune uti- 
lity pour I'utilisateur, qui est assure 
dans la majority des cas de benefi- 
cier de la technique la plus appro- 
price a la meilleure compaction. 
TOUt au plus lui laisse !-on le choix 
d'autoriser ou non Stufflt a essayer 
l'une, 1'autre ou les deux techniques. 

L'algorithme de cryptage est derive 

du Data Encryption Standard du 
Nb"S, eonsidere comme aSSeZ sur. 11 
peut devenir definitivement sur pour 
I'utilisateur a la memoire delaillante. 
Je fais partie de ces derniers et je 
n'ai aucune honte a avouer qu'il 
m'est arrive de perdre une precieuse 
collection d'informations le jour ou 
j'ai oublie le mot de passe qui la pro- 
tegeait. Cela fait deja cinq ans et 
rien n'indique qu'il me reviendra en 
memoire. Mefiance done... 

Les utilitaires 

C'est la la nouveaute essentielle de 
la derniere version. Jusqu'a mainte- 
nant, une operation d'archivage ou 
de d£sarchivage mettait en oeuvre 
('application independante Stufflt. 
Cela netessitait done de quitter 
['application en cours si cette der- 
niere reclamait un fichier archive. 
Deux Liux^Huires de burtau vien- 
nent heureusement combler telle 
lacune qui devenait de plus en plus 
gen an to. 

Viewer DA, qui n'occupe que tres 
peu de place en m£moire, est un ac- 
cessoire qui permet de visualiser le 



content) d'un fichier d'archives sans 
possibility d 'extraction. 
Un Stufflt DA, plus gourmand en 
memoire (170K), est un accessoire 
qui permet 1'extraction de fichiers ar- 
chives ( a condition qu'ils ne soient 
pas cry pt.es ) depuis toute application 
supportant des accessoires. Son 
fonctionnement est identique a celui 
de Stufflt, a quelques details pres qui 
tiennent a une reduction du nombre 
de boutons dans les fenetres de dia- 
logue, sans pour autant que fassent 
defaut les options correspondantes 
auxquelles on accede en douhlanl 
les boutons de Unstufflt DA avec la 
touche Option 

II n'est pas rare qu'un travail routi- 
nier exige le desarchivage quotidien 
de plusieurs fichiers, loujours les 
memes, par exemple une applica- 
tion et tous ses fichiers. Raymond 
Lau a cree un package destine a 
transformer un fichier d'arehive en 
une application independante qui, a 
l'instar du pelican lasse d'un long 
voyage, s'ouvre seul le ventre el en 
extrait ses archives. 
Ce package, nomme Auto Unstuf- 
flt, comporte un shell destine a etre 

greffe a un fichier d 'archives pour le 

transformer en une application inde- 
pendante, et un installateur qui pra- 
tique cette greffe. Au lancement de 
I' Installateur Auto Unstufflt In- 
stall, eelui-ci deniande a localiser le 
shell. A pres designation de Auto 
Unstufflt Shell, on peut designer 
un ou plusieurs fichiers d'archives 
qui seront immediatement convertis 
en autant d 'applications indepen- 
dantes, generatrices de leurs propres 
archives. Ces nouvelles applications 
conservent le nom initial des fichiers 
d'archives dont elles sont nees. II est 
done conseille de supprimer le suf- 
fixe .sit qui accompagne ce nom car 
ce ne sont plus des fichiers 
d'archives au sens ou le eompren- 



drait Stufflt. Pour autanl, leur eonte- 
nu n'est pas perdu pour Stufflt, si on 
veut bien leur rendre le type "SIT!" 
qu'elles out perdu dans la transfor- 
mation. 

Le cout 

Ajoutons pour finirque Stufflt, distri- 
bute par tous les grands scrveurs en 
regime shareware, beneluie d'un re- 
gime de faveur puisqu'il est totale- 
ment gratuit pour qui limite son cm- 
ploi au desarchivage. Mais celui qui 
veut I'utiliser en mode creation ne 
sera guere penalise puisque Ray- 
mond l.au ne demande que $18 pour 
Stufflt, et $18 pour les utilitaires 

d'accompagnement ($33 seulement 

pour I e p a c k a g e CO m pie t ) . 

N'omettiv. pas de le feliciter en lui 
envoyant voire contribution. 



Disquette MAK FAN 

La saisie des listings, programmes etant longue et 
generatrice d'erreurs, nous avons rassemble tous les 
programmes de ce numero sur disquette. Vous pou- 
vez vous la procurer au prix de 50 FF. Passez votre 
commande en ecrivant a : 



PB 



MAK FAN 

33, 94471 Boissy cedex. 
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Collection PageMaker 

Modeles de Documents de 
l'entreprise 

11 s'agit dun recueil de modules de- 
veloppes par Aldus Corporation et 
par une societc specialised dans Le 
graphisme pour vous aider S creer 
des documents a ['aspect profession- 
ik'I. Le principal objectif est d'elargir 
votre connaissance du logkiel Page- 
Maker el des techniques de base 
ayartt trait a la conception et la mise 
en page de documents. Ces modeles 
vous proposent une gamme de for- 
mats de page vous pennettant d'ex- 
ploitLT toutes les fonctions du cys- 
teine d edition personnels PageMa- 
ker dans le cadre de vos activit^s 
professionnelles. La premiere serif 
de modeles s'intitulait Collection Pa- 
geMaker : Modeles de Lettres 
d'infor-mation. I ,a seconde vous 
offre, quant a elle, plus d'une dou- 
zalne de modeles conienant les dif- 
ferents types de matenaux Ji>nt vous 
servez souvent dans votre 9ecreur 
d'aciiviie, et notamment : 

- des transparents, des propositions 
,i utiliser seules on en combinaison 
avec les transparents. 

- des rapports de gestion a usage in- 
terne 

- des manuels 

des memos el brochures Inter- 

serviees 

- des projets a usage interne mi ex- 
terne. 

Votre configuration de Irav.iil com- 

prendra le present manuel ainsl que 
les disquettes correspondantes- Le 



logiciel PageMaker, un ordinatour 
personnel et une Imprimante de 
type PostScript Sachez d'ores et 
deja qu Aldus travaille a la mise au 

point de series deslinees a d 'mitres 

secteurs d'activinS, ou les besoins en 
communication sunt importants. Les 

series que nous ereons dependent 
en tail de vos imperatils de travail, et 
de la connaissance que vous en 



L 'Edition sur Macintosh 

ThinkTank, More, MaeWrile, I a//, 
Word, MacAteur, Writer Plus 
I'.ir A. Chichery, |. P. Drieux et 
A. farlaud 



He la redaction a 1'impression d'un 

texle, qu'il s'agiSSe d'une let tie, 
d'une Lireulaire, dun rapport ou 
d'un livre, Macintosh Be revcle un 
outil precieux servi par des logiciels 
aussi varies qu'eiiicaces. 
Dans eet ouvrage, les auteurs fitu- 
dient le mode d'utilisalion de sept 

logiciels 

traifements de lexlcs plus ou moins 
evolues, pennettant de trailer du 
texte, et fonetionnant sur i'ordinatour 

Macintosh : 

Think Tank, More, MaeWrile, |a//., 
Word, Mac Auteur Plus. 
Ms presenlent cliacun d'entre 6UX de 
la fa con la plus complete el la plus 
logique possible, afin que le leeteur 
qui ne le eonnaissail pas jusqueda 
puisse tres rapidement I'utiti.ser. 
C'est pourquoi, outre une description 
detaillee des fonctions qu'il offre a 
I'operateur, dans I'ordre nil ce der- 



nier y aura vraisemblablement re- 
cours quand il lutilisera, son( don- 
nes quelques eonseils pratiques et 

pariois meme des Informations qui 

ne figurenl pas dans les documenta- 
tions, I'ensemble devant permellre 
l'acipiisilion rapide d'un certain sa 

voit-faire. 

XCMD's for HyperCard 
Gary Bond 
Chez MIS.press 

(Management information Source, 
Lnc) P.O. Box 5277 • Portland, 

OK 97208-5277 
lei : l t '-l-(S(r 1 )222-2>N 

Appel graduil des Etats-Unis avet : 

1-800-MANUAI.S 

Prix olticiel: S 24.W f taxe. 

Void un livre remarquable et atten- 
du qui aborde a la lois pour le Pascal 

et le language C le prooleme du de- 

veloppemenl des commandes el des 
1 unctions exlernes qui evolueronl 
avec l lyperCard. 

Nombreux sunt ceux qui apres avoir 
developpe en HyperTalk onl resen I i 
le besoin d'etendre ce language en 
ereant leurs propres commandos. 
Avec XCMD's lor HyperCard, Gary 
Bond comble un vide important. On 
pouvait craindre que ce livre ne soil 
Irop 'Irapu", or il n'en n'est rien. 
Clary Bond approche les com- 
mandes exlernes pas a pas, sans 
rien laisser ,m hasard. On sent sous 
sa plume un vrai "pro" el un excel 
len! pedagogue. II esl par ailleurs 
possible de se procurer la disquette 

d'accompagne-ment qui propose 20 

commandos pretes a I'emploi et fort 
utiles. 
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PostScriptement Votre 

sur bromures ou films 

noir et blanc ou quadri 

a 1270 ou 2540 Dpi 



Premiere Societe en France a s'etre 
equipee d'une photocomposeuse sous 
PostScript, Pragma Compo a acquis un 
savoir faire en PAO largement reconnu sur 
ce nouveau marche et a travers la presse 
professionnelle. 

Affiliee au reseau Cortex Infographie, 
specialise dans I'ingenierie Postscript, et 
integree a un groupe de petites societes 
specialisees dans les Arts Graphiques, 
Pragma Compo beneficie d'un reseau de 
competences et d'un environnement pro- 



fessionnel lui permettant d'offir des serv- 
ices polyvalents de qualite. 

Equipee de deux photocomposeuses Post- 
Script a 1270 et 2540 dpi , de plusieurs 
micro-ordinateurs et imprimantes de 
differentes marques, des principaux logi- 
ciels de PAO et DAO ainsi que la quasi- 
totalite des fontes de caracteres PostScript, 
Pragma Compo est en mesure d'offrir un 
service flashage "Tout PostScript" et un 
ensemble de services Arts Graphiques aux 
utilisateurs de PAO. 




affiliee au reseau Cortex Infographie 

14 Impasse Carnot 
92240 Malakoff 
Tel : 46 57 48 62 



APPLE EXPO STAND B 21 

MEGAVISION 15" 

8990P 









* Offre de lancement sur ecran format A4, 

livre complet avec sa carte video. 

Macintosh SE : 8 990 F H.T. - Macintosh II : 9 990 F H J. 

MACROVISION 86, 90 rue Victor Hugo 93170 Bagnolet 
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ia base de donnees reiationnelles qui propulse Macintosh dans un univers surpuissant et jamais atteint. 




quel peripherique 
.,r du Macintosh™ : 

. mi imprtmantes rapides, 

eodisque, CD Rom, synthetiseur 

ou projecteur de diaposltives... 

«Jer en douceur un premier fichier 

concevoir la prcgrarnmation ia plus sophistiquee 

pour exploiter tout le potentiel de Macintosh. 

• gerer textes, images, dates, chiffres... 

• transferer des donnees aux formats SYLK™, DIF, ASCII 

sans caracteres parasites (fittrage). 

• echanger des donnees avec differents types de micro 

ou gros systemes via les r^seaux Ethernet™, Apple Talk™, Omninet™. 

4 B DIMENSION™ supporte le protocole AFP™ 

Interface directe avec dBase III Plus™. Oracle™ via SQL Link™, 

possibility de creer des interfaces specifiques 

par ('integration de routines externes. 

• fonctionne en caracteres non romains, 

japonnais, chinois, hebreu, arabe ...) 

• transformer Macintosh™ en terminal intelligent 

pour gros systeme. 

• creer les applications les plus diverses : facturation, gestton 

de stock, gestion commerciale, gestion du personnel, 

de la production, des feuilles de temps, des commandes 

et des ventes, gestton de bibliotheque ou de documentation. 

• benef icier des avantages d'un logiciel francais 
devenu international. 4 D™ est disponible en iangue anglaise. 



^ f^ m r^ if 



